:: a -> [(a, b)] -> b package:safe

lookupJust key = fromJust . lookup key