module Util where

wsKeys :: [a] -> [b] -> [(a, b)]
wsKeys [] [] = []
wsKeys (w:ws) (k:ks) = [(w, k)] ++ wsKeys ws ks