sub ddd {
    my $a = $_[0] == 1 ? 'p' : $_[0] == 2 ? 'pp' : $_[0];
    my $b = $_[1] == 3 ? 'w' : $_[1];
    my $c = $_[2];
    print v "  < $a >  < $b > < $c >";
}