-module(o). -export([m/0]). m()->case io:get_line('')of eof->0;S->io:format(S),io:get_line(''),m()end.