integer found, hashcount
      integer keys1, keys2, keys3, keys4
      character(len=8) :: key1
      character(len=8) :: key2
      character(len=8) :: key3
      character(len=8) :: key4
      hashcount = pthash_count(big)
      found = 0
      keys1 = pthash_keys(big, "", "", "")
      do while ( pthash_keynext(keys1, key1) )
          keys2 = pthash_keys(big, key1, "", "")
          do while ( pthash_keynext(keys2, key2 ) )
              keys3 = pthash_keys(big, key1, key2, "")
              do while ( pthash_keynext(keys3, key3 ) )
                  keys4 = pthash_keys(big, key1, key2, key3)
                  do while ( pthash_keynext(keys4, key4 ) ) 
                      print *, key1, key2, key3, key4
                      found = found + 1
                  end do
                  call pthash_keyrelease(keys4)
              end do
              call pthash_keyrelease(keys3)
          end do
          call pthash_keyrelease(keys2)
      end do