-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).