-module(prog). -export([main/0]). main() -> loop(). loop() -> case io:fread( "","~d" ) of eof -> true; {ok, X} -> [Y] = X, if Y == 42 -> true; true -> io:fwrite( "~B\n",X ), loop() end end.