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