BEGIN{
    pi=3.141592654;
    xmin=0.02;
    xmax=9.5;
    ymin=1;
    ymax=510;

    acc[1]=0.1;
    acc[2]=0.2;
    acc[3]=0.5;
    acc[4]=1;
    acc[5]=2;
    acc[6]=5;
    acc[7]=10;
    acc[8]=20;
    acc[9]=50;
    acc[10]=100;
    acc[11]=200;
    acc[12]=500;
    acc[13]=1000;
    acc[14]=2000;
    acc[15]=5000;
    acc[16]=10000;
    acc[17]=20000;
    acc[18]=50000;
    acc[19]=100000;
    for(i=1;i<=19;i++){
        x1=-99;y1=-99;x2=-99;y2=-99;
        Sa=acc[i];
        T=xmin; Sv=Sa/2/pi*T
        if(ymin<=Sv&&Sv<=ymax){x1=xmin;y1=Sv}
        Sv=ymin; T=2*pi*Sv/Sa
        if(xmin<=T&&T<=xmax){x1=T;y1=ymin}
        T=xmax; Sv=Sa/2/pi*T
        if(ymin<=Sv&&Sv<=ymax){x2=xmax;y2=Sv;k=1}
        Sv=ymax; T=2*pi*Sv/Sa
        if(xmin<=T&&T<=xmax){x2=T;y2=ymax;k=2}
        if((0<x1&&0<y1)&&(0<x2&&0<y2)){
            if(k==1){printf "%.3f %.3f 12 45 0 BR %g\n",x2,y2,acc[i];}
            if(k==2){printf "%.3f %.3f 12 45 0 BL %g\n",x2,y2,acc[i];}
        }
    }

    xmax=11;
    ymin=1.05;
    dis[1]=0.01;
    dis[2]=0.02;
    dis[3]=0.05;
    dis[4]=0.1;
    dis[5]=0.2;
    dis[6]=0.5;
    dis[7]=1;
    dis[8]=2;
    dis[9]=5;
    dis[10]=10;
    dis[11]=20;
    dis[12]=50;
    dis[13]=100;
    dis[14]=200;
    dis[15]=500;
    dis[16]=1000;
    dis[17]=2000;
    dis[18]=5000;
    dis[19]=10000;
    for(i=1;i<=19;i++){
        x1=-99;y1=-99;x2=-99;y2=-99;
        Sd=dis[i];
        T=xmin; Sv=Sd/T*2*pi
        if(ymin<=Sv&&Sv<=ymax){x1=xmin;y1=Sv}
        Sv=ymax; T=2*pi*Sd/Sv
        if(xmin<=T&&T<=xmax){x1=T;y1=ymax}
        T=xmax; Sv=Sd/T*2*pi
        if(ymin<=Sv&&Sv<=ymax){x2=xmax;y2=Sv;k=1;}
        Sv=ymin; T=2*pi*Sd/Sv
        if(xmin<=T&&T<=xmax){x2=T;y2=ymin;k=2}
        if((0<x1&&0<y1)&&(0<x2&&0<y2)){
            if(k==1){printf "%.3f %.3f 12 -45 0 BL %g\n",x2,y2,dis[i];}
            if(k==2){printf "%.3f %.3f 12 -45 0 BR %g\n",x2,y2,dis[i];}
        }
    }


}