-module(u).
-export([m/0]).
m()->S=io:get_line(''),S>"e"orelse(S>"a"orelse g([X-32||X<-tl(S)]))>m().
g([A,B,C,D|T])->io:put_chars(<<A:6,B:6,C:6,D:6>>),g(T);g(_)->0>1.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).