#!/usr/bin/perl
open ME,$0;rand 42;_(2,4,21,1,29,2,17,1,10,4,21,1,11,4);
sub _{map{seek ME,shift,!1;read ME,$c,shift;$a.=$c;}@_;}
_(21,1,94,1,29,1,111,1,88,1,12,2);$a=~s,\/(us)r,j$1t,;$a
=~s,/p,th,;print $a;