#!/usr/bin/perl

# Base 36, [0-9A-Z]
$_="II";
map{$r+=36**$i++*(/\D/?-55+ord:$_)}reverse split'';
print "$r\n";

# Hex
$_="29A";
map{$t+=16**$j++*(/\D/?-55+ord:$_)}reverse split'';
print "$t\n";

# Bin
$_="1010011010";
map{$s+=2**$k++*(/\D/?-55+ord:$_)}reverse split'';
print "$s\n";

# Dec :)
$_="666";
map{$u+=10**$l++*(/\D/?-55+ord:$_)}reverse split'';
print "$u\n";