  pure (l, scoreLetter l)

-- | Generate an arbitrary direction.
genDir :: Gen Dir
genDir = elements [ HZ, VT]

-- | Generate a pos in the range (0,0) to (ur,uc).
genPos :: (Int,Int) -> Gen Pos
genPos (ur,uc) = do
  r <- choose (0, ur) :: Gen Int
  c <- choose (0, uc) :: Gen Int
  pure (r,c)