mkMap :: String -> String -> IO (FM ((Int,Int),(Int,Int)) [BoxLabel])
consMap :: [(Int,((Int,Int),(Int,Int)),BoxLabel)] -> FMI -> FM ((Int,Int),(Int,Int)) [BoxLabel] -> FM ((Int,Int),(Int,Int)) [BoxLabel]