-- (find-sh0 "echo 'foo\nfoobar' | rexx pig.rexx")
-- (defun c0 () (interactive) (find-sh0 "echo 'foo\nfoobar' | rexx pig.rexx"))

rule = copies('-', 20)
say rule
say ' Pig Latin'
say rule
say

do forever
  input = prompt("? ")
  if input = '' then leave
  call backslang input
  say ":" result
end

exit 0

backslang: procedure
  parse arg input
  sentence = ''
  do w=1 to words(input)
    call word input, w
    word = filter(result, ',.;:!''"?')
    select
      -- Special cases:
      when word = 'a' then latin = 'ay'
      -- Latinate!
      otherwise do
        hinge = verify(lower(word), 'aeiou', 'M')
        latin = substr(word, hinge)substr(word, 1, hinge-1)'ay'
      end
    end
    sentence = sentence latin
  end
  return strip(sentence)

prompt: procedure
  call charout , "? "
  parse pull input
  return input

-- Like a global strip()
filter: procedure
  parse arg input, illicit
  do forever
    call verify input, illicit, 'M'
    if result = 0 then leave
    input = delstr(input, result, 1)
  end
  return input