primHashMap :: M.Map Identifier (T.Text,Hash)
primHashMap = M.fromList (zip allPrimNames vs)
  where
    ns = map unIdentifier allPrimNames
    hs = map mkHash ns
    vs = zip ns hs

primSizeMap :: M.Map Identifier Size
primSizeMap = M.fromList $ zip ns sz
  where
    ns = map primToText allPrims