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