print ":$_:", ord($_), "\n" for (split //, $str)