How about:

import Data.Map (insert, lookup)
import Data.Map qualified as Map
import Data.Text (pack)
import Data.Text qualified as Text