main=interact$f;f(x:y)=g y$"  adgjmptw"!!read[x];f x=x;g('1':p)=(:f p);g(_:p)=g p.succ