#!perl -p
$_=??||sprintf'%b
',$_+1;y;01;LR;;s;.;