-module z.
-export[m/0].
m()->io:format([if$
==C->C;0<1->48end||C<-io:get_chars('',1500)]).