print join ":", map {sprintf("%d",$_)} unpack("A4A4",shift);