#!/usr/bin/perl -w

@c=(1249211252,543256175,1952998770,544236914,1814063201,1667982706,33);
foreach $b (@c){for(0..4){$a[$_]=int($b/(2**((3-$_)*8)));
$b-=$a[$_]*(2**((3-$_)*8));}for(0..4)
{print chr($a[$_]);}}