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