-module(d). -export([m/0]). m()->S=io:get_line(''),S<z orelse f(S)>m(). f(S)->io:format(T=case S of[$d,32|R]->f(R);S->(S--" ")++" "end),T.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page