$\='-'x17 .$/;print;$a=($_>3&&'ÎÚ').qw(n Ô nÔ n ht ;ht ;ht¡ FRnŠ– *FRŠ–²)[$_-1],$_=0 x255,$a=~s/./substr($_,ord$&)|=unpack b35,''/eg,s/.{17}/$& /g,y/01/ */,print for<>