do while stream(stdin, "State") <> "NOTREADY"
  call charout ,charin(stdin)
end