p(9); p(20);p(18); p(19);z(104);p(0); p(13);p(14);p(19);p(7); p(4);p(17);z(14);p(15);p(4); p(17);p(11);z(11);p(2);p(14);p(3); p(4);p(17);r('.'); sub p {$_=shift;;; $a='a';while($_){;; ++$a;--$_;}r($a);} sub r{print shift }sub z{r(' ');}