import qualified Data.ByteString as B (hPut)
import qualified Data.Map as Map (Map, empty, insert)
import Data.Maybe (fromJust, isNothing)
import qualified Data.ByteString as B (hPut)
import qualified Data.Map as Map (Map, empty, insert)
import Data.Maybe (fromJust, isNothing)