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