Help for this page

Select Code to Download


  1. or download this
    s{}{${\(<<'.')}};s.^ +..mg.y.\t..d;
there are three virtues
...
6.30.1.584.2.0.1.48.2.253.2.95.4.0
;_:@_&&do{$%=$_[--$#_];$.=$_[--$#_
];print$`[$.++]for 1..$%;goto _};
  2. or download this
    $"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc