-module(u).
-export([m/0]).
m()->f([0,0|io:get_line('')]).
f([A,B,C,D,_|T])->X=C rem$'*16+D rem$'-153bsl A+B,f(if A>0->io:format("~c",[X]),[A-1,X bsr 9|T];A<1->[8,X|T]end);f(_)->x.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).