(
	sub {
		print map {	$_->() } @_	}
) -> ( 
	
	sub {
  	(
	  	sub { map { $_->() } @_ }
		) -> (
			sub { 'J' },
			sub { 'A' }
		)
	},
	
	sub {
  	(
		  sub {	map { $_->() } @_ }
		) -> (
			sub { 'P' },
			sub { 'H', '!' }
		)
	}
);