intercalateM str (x:xs) = do
  x
  write str
  intercalateM str xs

-- | Something to write to the printer builder.
intercalateM str (x:xs) = do
  x
  write str
  intercalateM str xs

-- | Something to write to the printer builder.
intercalateM str (x:xs) = do
  x
  write str
  intercalateM str xs

-- | Something to write to the printer builder.