#!/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{print',';}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()));sASdasDasdaosjdASJ();