duplicate certain lines _C_ by 51b

-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