$T=-<>;<>;map{$/=$";$%=<><<//;map$$_+=$-=${$_+$'}+$%-$$_,$T..-$' while$%/=2}glob<>;print$$T+0