perl -we 'print qw/IGUAL MAYOR MENOR/[$ARGV[0]<=>$ARGV[1]],"\n";'