%%HP: T(1)A(G)F(.);
  J
   " " 1 J 2 * 1 -
    FOR I " " +
    NEXT J +
  

