#!/usr/bin/perl
@z=('')x11;$k='5397969880949610291891037060746998929510499113';while($k=~m m(102|103|104|113|..)mg)
{push(@l, $1);}@z=('')x eval($#z*2+1);for(0..scalar(@z)){$f.=chr(eval("$#z+1-$_+$l[$_]"));}
$f=~s s(.{4})(.{7})(.{4})(.{6})s$1 $2 $3 $4sg;print$f;