my @chars = map {split //} @ARGV;
foreach (@chars) {
	printf "%o  ", ord($_);
}
