#!perl -lp0a
s/(^|\
.)(\d+)/sprintf"%08b",$2/ge,/\D/&&($_=$`|2x
$',y/0-3/##01/)for@F;$_=join$\,sort@F;1while s/^((\d*)#*) \
2.*/$1/mg
||s/^(\d*)0(#*)\1[1]\b#*/$1#$2/mg;s!.+!$&.'/'.$&=~y/01//!ge;y/#/0/;s!\d{8}\B!$&.!g;s!\d{8}!"0b$&"!gee
IyFwZXJsIC1scDBhCnMvKF58XC4pKFxkKykvc3ByaW50ZiIlMDhiIiwkMi9nZSwvXEQvJiYoJF89JGB8MngkJyx5LzAtMy8jIzAxLylmb3JARjskXz1qb2luJFwsc29ydEBGOzF3aGlsZSBzL14oKFxkKikjKikKXDIuKi8kMS9tZ3x8cy9eKFxkKikwKCMqKQpcMVsxXVxiIyovJDEjJDIvbWc7cyEuKyEkJi4nLycuJCY9fnkvMDEvLyFnZTt5LyMvMC87cyFcZHs4fVxCISQmLiFnO3MhXGR7OH0hIjBiJCYiIWdlZQ==