%%HP: T(1)A(G)F(.);
 DUP 'BE' SWAP GET
1 2 SUB  B EX
   " BARRA " B +
" " + { "Q" "Q" }
EX EVAL STR + EX
EVAL SWAP STR + 2
LIST ADD { ":" ":"
} ADD { } "L:" 2
LIST + { "M" "M" }
EX EVAL STR + EX
EVAL SWAP STR + 2
LIST ADD { ":" ":"
} ADD + { 2 4 } { }
{ 0 0 } 'LL' B GET
+
  

