compose(sub{ ucfirst $[0] }, sub { $_[0] . "\n" });