print " => OK\n" if grep {print "$_, "} qw( a b c );