10 lines
270 B
Text
10 lines
270 B
Text
procedure main(A)
|
|
repeat (while writes((any(&letters, c := reads(&input,1)),c))) |
|
|
(writes(c) ~== "." ~== writes(rWord())) | break write()
|
|
end
|
|
|
|
procedure rWord(c)
|
|
c1 := rWord((any(&letters, c1 := reads(&input,1)),c1))
|
|
writes(\c)
|
|
return c1
|
|
end
|