print $a if ++$a for qw/x y w h/;