'boldital' => do {
    my $i = curry \&wrap_with_html => ( 'i' );
    my $b = curry \&wrap_with_html => ( 'b' );
    sub { $b->( $i->( @_ ) ) }
},

##</code><code>##

sub compose
{
   my ($f, $g) = @_;

   return sub { $f->($g->(@_)); }
}

# ...

'boldital' => &compose(&curry(\&wrap_with_html, 'i'),
                       &curry(\&wrap_with_html, 'b')),