$_="415250511528293422193223122519645759676174";$_{$_}++;$}=[];(split//,$});push@a,$&while s;..;;;@}=map$_,@_;{@_=map @}->[$_],(0..5);}$j=join'',map (chr((ord$_[0])+$_),(@a[0..3]));$a=join'',map(chr((ord$_[1])+$_),(@a[4..10]));$p=join'',map(chr((ord$_[4])+$_),(@a[11..14]));$h=join'',map(chr((ord$_[5])+$_),(@a[15..20]));

print join' ',$j,$a,$p,$h,"\n";