my $x = Var->new; eval { actor( $x, sub { sang_with("frank", $x, sub { Success->throw } ) } ) }; print "frank did sing with an actor\n" if $@;