sub x {
   my ($x, $g) = @_;
   $x && $g->($x)
}