#!/usr/local/bin/perl

($j,$a,$p,@h)=($ARGV[0]||68,-1,1,1,2);for(;$j>@h;){$==1;$a++;do{do{$;=1;$_==$
p&&next,($*=$=**2+$=+$h[$a])%$_ or$;=0,$_**2>$*-1&&last for@h;$;}?@h=sort{$a
<=>$b}keys%{{map{$_,1}@h,$=**2+$=+$h[$a]}}:8}while++$=<$h[$a]-1}shift@h;print
!@ARGV?map{chr}$h[23]+$h[6],$h[24],$h[2]+$h[27],$h[1]+$h[25]:(map$_.$/,@h),$/