#!/usr/bin/perl

#Perl rox!
$a="pErLrOxPeRlRoXPeRlrOXPeRlRoxperlroxPerlroX
PerLROxPerLROXPeRlRoxPerLroxPerlRoXPeRlrOxperl
roxPeRlroxPerlRoXPeRlrOxPerLRoxperlroxPerLrox
PerlroXPerlrOXPerLrOXPerlRoXPeRlrOxperlroX";$a=~s/
//g;for(0..24){$b=substr($a,$_*7,7);$b=~s/[A-Z]/1/g
;$b=~s/[a-z]/0/g;print chr(oct("0b".$b)+32);}