perl -wle '$_=<STDIN>,chop;map{print"$_: ",unpack("B*",$_)}split//'