#!/usr/bin/perl -w
use strict;

# And JUSTice for all

my $Just => my @Just =(
j=>
UnJuSt=>
S=>
T=>
jUsT=>JusT=>
Just=>Just=>Just=>
);sub

        just{pop@
       Just}sub
      jUst{pop=>
     just}sub 
    juSt{pop=>
   jUst}sub 
  jusT{pop=>
 juSt}pop@
Just

unless        $Just=@Just-sqrt@Just;for(@Just=>@Just)
{     #     y=Just
           s=jUsT=.
==>       s=JuSt=(chr $\=/12+
       ord just\=>).(chr $\=/6
     +ord just\=>).(chr $\=/2+ord
         Just\=>)
  =e=>s=JusT=pack i\=>1801672040=e=>
     y=jUST= alp==>
    s=JUST| |===>
   s=Just=qq
<  $Just[--$Just]er$Just[--$Just]>=e=>
}

print Just.jUst.juSt.jusT;