#!/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{$/})