addInOrderedList :: Ord k => (k, v) -> [(k, v)] -> [(k, v)]
addInOrderedList (k, v) [] = [(k, v)]
addInOrderedList (k, v) ((kh, vh):t)
  | k < kh = (k,v) : ((kh, vh):t)
  | k > kh = (kh, vh) : (addInOrderedList (k, v) t)