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