#!/usr/bin/perl
$a=(2**2**$i++-1)*++$a while $i<5;
print unpack("B*",pack("N",$a))."\n"
