** create character codes for FMTbip
X+++++++[->>F--->M-->T->b+>i++>p+++[+++++++++++++<]<]
** loop **
X,+[
** convert 'A' to 0 'B' to 1 respectively **
>Y++++++[-<X----------->Y]
** switch **
Y+<X
X[-[-[-[-[-[->Y
* case G (Sol) *
Y->>>T-.+>>>p-.---.++++<<<<<<Y
<X]>Y[
* case F (Fa) *
Y->F.>>>b-.+<<<<Y
Y]
<X]>Y[
* case E (Mi) *
Y->>M.>>>i.<<<<<Y
Y]
<X]>Y[
* case D (Re) *
Y->>>T--.++>b+++.---<<<<Y
Y]
<X]>Y[
* case C (Do) *
Y->F--.++>>>>>p-.+<<<<<<Y
Y]
<X]>Y[
* case B (Si) *
Y->>>T-.+>>i.<<<<<Y
Y]
<X]>Y[
* case A (La) *
Y->>M-.+>>b-.+<<<<Y
Y]
<X,+]
KiogY3JlYXRlIGNoYXJhY3RlciBjb2RlcyBmb3IgRk1UYmlwClgrKysrKysrWy0+PkYtLS0+TS0tPlQtPmIrPmkrKz5wKysrWysrKysrKysrKysrKys8XTxdCioqIGxvb3AgKioKWCwrWwogKiogY29udmVydCAnQScgdG8gMCAnQicgdG8gMSByZXNwZWN0aXZlbHkgKiogCiA+WSsrKysrK1stPFgtLS0tLS0tLS0tLT5ZXQogKiogc3dpdGNoICoqCiBZKzxYCiBYWy1bLVstWy1bLVstPlkKICAgICAgICogY2FzZSBHIChTb2wpICoKICAgICAgIFktPj4+VC0uKz4+PnAtLi0tLS4rKysrPDw8PDw8WQogICAgICA8WF0+WVsKICAgICAgICogY2FzZSBGIChGYSkgKgogICAgICAgWS0+Ri4+Pj5iLS4rPDw8PFkKICAgICAgWV0KICAgICA8WF0+WVsKICAgICAgICogY2FzZSBFIChNaSkgKgogICAgICAgWS0+Pk0uPj4+aS48PDw8PFkKICAgICBZXQogICAgPFhdPllbCiAgICAgICAqIGNhc2UgRCAoUmUpICoKICAgICAgIFktPj4+VC0tLisrPmIrKysuLS0tPDw8PFkKICAgIFldCiAgIDxYXT5ZWwogICAgICAgKiBjYXNlIEMgKERvKSAqCiAgICAgICBZLT5GLS0uKys+Pj4+PnAtLis8PDw8PDxZCiAgIFldCiAgPFhdPllbCiAgICAgICAqIGNhc2UgQiAoU2kpICoKICAgICAgIFktPj4+VC0uKz4+aS48PDw8PFkKICBZXQogPFhdPllbCiAgICAgICAqIGNhc2UgQSAoTGEpICoKICAgICAgIFktPj5NLS4rPj5iLS4rPDw8PFkKIFldCjxYLCtdCg==