-module a.
-export[m/0].
m()->case io:get_line('')of"y\n"->io:format("yes "),m();_->0end.