do.until [
  make "line readlist
  print reverse :line
] [word? :line]
bye