$t=sub {
                         s      q     r     t
            $t_=sub{"$e[18]$e[$16]$e[17]$e[19] $_[0]"};				
            &$s(&$t_(shift()))
	}