#!/usr/bin/perl -w @a=(qq qaq..qq qzq, qq q q ); $a= 0;@aa=(uc $a[$a++, $a++,$a++,$a++, $a++,$a++,$a++, $a++, $a++, $a], $a[ $a++,$a++,$a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++,$a++,$a], $a[$a--,$a--,$a], $a[ $a++, $a], $a[ $a++,$a++,$a++ ,$a++ ,$a++ ,$a++ ,$a++ ,$a], uc$a [$a-- ,$a-- ,$a-- ,$a-- ,$a-- ,$a-- ,$a--,$a--,$a--,$a-- ,$a--,$a--,$a--,$a-- ,$a--, $a-- ,$a--, $a-- ,$a--, $a-- ,$a--,$a--,$a--,$a-- ,$a--,$a--,$a],$a[$a++ ,$a++, $a++, $a++, $a++, $a++,$a++,$a++,$a++,$a++, $a++,$a++,$a++,$a],$a[$a++ ,$a], $a[ $a++, $a++, $a++, $a++, $a++ ,$a], $a[$a--,$a--,$a--,$a--,$a-- ,$a--,$a--,$a--,$a--,$a--, $a--, $a--, $a], $a[ $a--, $a--, $a--, $a],$a[$a++,$a++,$a++,$a++, $a++,$a++,$a++,$a++,$a++, $a++,$a++, $a++,$a++ ,$a],$a[ $a++,$a++ ,$a++, $a++,$a++ ,$a++, $a++,$a++ ,$a++,$a], uc$a[$a--,$a-- ,$a--,$a--,$a--,$a--, $a--,$a--,$a--,$a-- ,$a--,$a], $a[$a--, $a--,$a-- ,$a--,$a--, $a--,$a-- ,$a--,$a--, $a--,$a-- ,$a],$a[$a++, $a++,$a++ ,$a++,$a++,$a++ ,$a++,$a++,$a++,$a++,$a++, $a++,$a++,$a],$a[$a--,$a-- ,$a-- ,$a-- ,$a--,$a--,$a] ,$a[$a++,$a++, $a++, $a++, $a++, $a++,$a++,$a++,$a++,$a++, $a++,$a++,$a++,$a++,$a++, $a],uc$a[$a--,$a--,$a--,$a--, $a--,$a--,$a--,$a--,$a--,$a--, $a--,$a--, $a--,$a--, $a--,$a--, $a--,$a--, $a--,$a],$a [$a--,$a-- ,$a--,$a--,$a--,$a--,$a--,$a], $a[$a++,$a++,$a],$a[$a++,$a++, $a++,$a++ ,$a++,$a++, $a++,$a++ ,$a],$a[$a--, $a--,$a-- ,$a--,$a--,$a-- ,$a],$a[ $a++,$a++,$a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a]); $a=0; print @aa[ $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++, $a++ ,$a ];