dumpAssembler :: [[Instruction]] -> B.ByteString
dumpAssembler files =
  let smushedFiles = map smush files
  in B.intercalate "\n" smushedFiles
  where
    smush file = B.intercalate "\n" $ map (B.intercalate " ") file
dumpAssembler :: [[Instruction]] -> B.ByteString
dumpAssembler files =
  let smushedFiles = map smush files
  in B.intercalate "\n" smushedFiles
  where
    smush file = B.intercalate "\n" $ map (B.intercalate " ") file
dumpAssembler files =
  let smushedFiles = map smush files
  in B.intercalate "\n" smushedFiles
  where
    smush file = B.intercalate "\n" $ map (B.intercalate " ") file