#!/bin/sh -- # A comment mentioning perl, indented for bash's sake.
eval 'exec perl -S $0 ${1+"$@"}'
        if 0;

$| = 1;

%map = qw(
	a	2
	b	2
	c	2
	d	3
	e	3
	f	3
	g	4
	h	4
	i	4
	j	5
	k	5
	l	5
	m	6
	n	6
	o	6
	p	7
	q	7
	r	7
	s	7
	t	8
	u	8
	v	8
	w	9
	x	9
	y	9
	z	9
);

if ( ! @ARGV ) {
	while (<STDIN>) {
		print &xlate($_);
	}
} else {
	foreach $x (@ARGV) {
		print &xlate($x), " ";
	}
	print "\n";
}

sub xlate {
	local($str) = @_;

	local($c);
	foreach $c (split(//, $str)) {
		$c =~ y/A-Z/a-z/;
		if ( $map{$c} ne '' ) {
			print $map{$c};
		} else {
			print $c;
		}
	}
}