#!/usr/bin/perl -w
use strict;

(
	sub {
		print map {
			$_->()
		} @_[3,1,2,0,4];
	}
)->(
	sub { no strict;q;read!; },
	sub {
		(
			sub {
				map { 
					$_->() 
				} @_[2,1,0] 
			}
		)->(
			sub { 't ' },
			sub {
				(
					sub {
						$_[0]->(), 's'
					}
				)->(
					sub { 'u' }
				)
			},
			sub { 't', 'r' }
		)
	},
	sub {
		(
			sub {
				map { $_->(), " " } @_;
			}
		)->(
			sub {
				lc ref
				sub {
					'', reverse 'J A P H !'
				}
			},
			sub {
				++($_="yot")
			},
			sub {
				(
					sub {
						@_[1,4,3,6,2,5,0];
					}
				)->(
					split('',"thnva'e")
				)
			}
		)
	},
	sub {
		(
			sub {
				map { 
					$_->() 
				} @_[1,0] 
			}
		)->(
			sub {
				(
					sub {
						$_[0]->(), q;'t ;
					}
				)->(
					sub { 'n' }
				)
			},
			sub { no strict; Do }
		)
	},
	sub { $/ }
)