#! perl -sw
use strict;
#        1         2         3         4
#23456789012345678901234567890123456789012345
sub d2b{my$d=pop;($d>1?d2b($d>>1):'').($d&1)}
[download]