import Numeric;main=interact$($"").showIntAtBase 2(head.show).(read::String->Integer)