#!/usr/bin/perl -w
use strict;

$|++;$^X="4285838400657879847".
"2698200486982760072656775698".
"200";$^=$"x(3<<1); map{substr(
$^,$.++,1)=chr(substr($^X,$_,2)
+(2<<4))}(4,20,32,44,40,6);map{
print;eval($^.('$b,'x3).substr(
$^X,-1,1).'.'.(2>>1).substr($^X
,-2,1));$_=chr(substr($^X,4,1))
.chr(4<<3);print;}(map{chr($_+(
     1<<5))}($^X=~/../g));