#!/usr/bin/perl -w use strict;@$=('a'..'z','A'..'Z');my@a=reverse@$;$;=0;(0);for(@a){eval +('sub '.$_ .'{print\''.$$[$;].'\';}');$;+=1;}sub KO{print"\x20";($$=1)}sub SP{pri +nt',';}sub sASdasDasdaosjdASJ{print"\x0a";}(&F(&q())&&&G(H()));&KO&&M(&Z)&&G(&L)& +&S();&I(V( ))&&&KO&&k();&V;KO(&O(I()))&&&Z(S());&P(X())&&&SP(I(&V()));sASdasDasda +osjdASJ();
|
|---|