#!perl -pl
y/A-Z/1a/,s//+0x/g,$_=((/1/.2>eval).0..21)[eval]||Bust