/* rexx */ do forever say 'enter rexx or -' parse pull inp say 'pull "'inp'"' if strip(inp) = '-' then return interpret inp end