Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
use Math::BaseCnv;
...

    $original;
}
  2. or download this
    4Ar.dPI,-9J,ex,-3jY
4Ar.gb5,9P,X3,-3eB
...
4Ar.1g9p,-9F,Gv,-4JF
4Ar.1jLc,-WW,-1Pz,-5FN
4Ar.1mWX,-3H,-4J8,-4lH
  3. or download this
    4Ar.1c.1,-Cd,IM,-4AM
      ^
      |
      + - split on first '.' when converting back to base 10