function recurs(f,n,mop)
    v = ['U' 'F' 'D' 'B' 'L' 'R' 'Ui' 'Fi' 'Di' 'Bi' 'Li' 'Ri'];
    for i=1:12
        cad=f+v(i);
        if n==1 then
            mputl(cad,mop);
        else
            recurs(cad,n-1);
        end
    end
endfunction