s/</\t\tAAk;\n/g;
        s/>/\t\tBBk;\n/g;
        s/\+/\t\tAA*k;\n/g;
        s/\-/\t\tBB*k;\n/g;
        s/\./\t\tputchar(*k);\n/g;
        s/\,/\t\t*k = getchar();\n/g;
        s/\[/\twhile (*k) {\n/g;
        s/\]/\t}\n/g;
        s/A/+/g;
        s/B/-/g;