by@moratorium08
AC
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);}
00101100 10111110 00001010 10111000 01110011 00101101 11011001 10001101 11101000 10110100 10101110 10110111 00101101 00000110 10001000 10100000 11010110 01001110 00001100 00001111 00000001 11010010 00000011 10101000 01101001 11100001 00010101 11110011 11111101 11100111 10101011 01111000 00111110 01011011 11010010 00111101 10011001 01000111 01010101 10001110 10110010 00011100 00010000 10110101 00000000 00100100 01111100 00110111 10100010 01000010
01100100000011100101111010101111011010000100110101