use POSIX qw(floor);while(defined($l=<STDIN>)){$x=1+8*unpack("C",pack("B8",$l));$y=int((sqrt($x)));print int($y*$y/$x);}