beginintegerI;
   integerprocedure TCODE(S); string S;
      TCODE ≔ ODE(S);
   PRINT(TCODE(“A”),3,3)
end