-module a.
-export[m/0].
m()->m(0).
m(256)->m(0);m(N)->[C,_]=io:get_chars('',2),case C of $h->k;$i->m(N+1);$dwhen N>0->m(N-1);$d->m(0);$s->m(N*N);$o->erlang:display(N),m(N) end.