#!/usr/local/bin/perl

@digits = ("zero", "one", "two", "three",
           "four", "five", "six", "seven",
           "eight", "nine");
&start_hot_keys;
while (1) {
        $char = getc(STDIN);
        last if ($char eq "\033");
		next if ($char =~ /[^0-9]/);
        print ("$digits[$char]\n");
}
&end_hot_keys;

sub start_hot_keys {
        system ("stty cbreak");
        system ("stty -echo");
}

sub end_hot_keys {
        system ("stty -cbreak");
        system ("stty echo");
}
