%%HP: T(1)A(G)F(.);
 DUP 'BE' SWAP GET
1 2 SUB  QI QJ FH
EC B EX
   { "Q" "Q" } EX
EVAL STR + EX EVAL
SWAP STR + 2 LIST
ADD { "= " "= " }
ADD QI QJ 2 LIST
FH - DUP EVAL
'QSOL' SWAP B 2 *
EC 2 LIST SWAP PUT
'QSOL' SWAP B 2 * 1
- EC 2 LIST SWAP
PUT 3 RND ADD EVAL
SWAP DUP SIZE DUP
    IF 15 <
    THEN 16
      FOR I " " +
      NEXT
    ELSE DROP " " +
    END SWAP + "
"
+
  

