m@main=getLine>>=print.sum.map((8-).exponent.(255-).read).words.map f>>m f '.'=' ' f x=x