my $h = compose2( $f, $g );
print $h->("x");
# f(g(x))