builderFromList separator build (x : xs) = go x xs
  where
    go y [] = build y
    go y (y' : ys) = build y <> separator <> go y' ys
builderFromList separator build (x : xs) = go x xs
  where
    go y [] = build y
    go y (y' : ys) = build y <> separator <> go y' ys
builderFromList separator build (x : xs) = go x xs
  where
    go y [] = build y
    go y (y' : ys) = build y <> separator <> go y' ys