#!/usr/bin/perl
$/=undef;open(O,$0);$_=
<O>;s;[^a-z ];;g;$/=q;;
;@;=split//;@_=(hk,2,7,
31,45,20,30,22,9,8,7,6,
22,2,13,30,29,15,5,20,+
22,29,1,j,32);for(0..23
){print$;[pop@_];}#octo