#!/usr/bin/perl -w
use strict;
sub a{ print map{ $_->() } @_[3,1,2,0,4]; }
sub b{ no strict;q;read!; }
sub c{ c1( \&c11, \&c12, \&c13 ) }
sub c1{ map{ $_->() } @_[2,1,0] }
sub c11{ 't ' }
sub c12{ c121( \&c122 ) }
sub c121{ $_[0]->(), 's' }
sub c122{ 'u' }
sub c13{ 't', 'r' }
sub d{ d1( \&d11, \&d12, \&d13 ) }
sub d1{ map{ $_->(), " " } @_; }
sub d11{ lc ref sub { '', reverse 'J A P H !' } }
sub d12{ ++($_="yot") }
sub d13{ d131( split('',"thnva'e") ) }
sub d131{ @_[1,4,3,6,2,5,0]; }
sub e{ e1( \&e11, \&e12 ) }
sub e1{ map{ $_->() } @_[1,0] }
sub e11{ e111( \&e1111 ) }
sub e111{ $_[0]->(), q;'t ; }
sub e1111{ 'n' }
sub e12{ no strict; Do }
sub f{ $/ }
a( \&b, \&c, \&d, \&e, \&f );