forkAlts :: [(a, CodeGen ())] -> CodeGen [(a, Code)]
forkAlts alts =
  forM alts $ \(val, altCode) -> do
    code <- forkLneBody altCode
    return (val, code)
forkAlts :: [(a, CodeGen ())] -> CodeGen [(a, Code)]
forkAlts alts =
  forM alts $ \(val, altCode) -> do
    code <- forkLneBody altCode
    return (val, code)
forkAlts alts =
  forM alts $ \(val, altCode) -> do
    code <- forkLneBody altCode
    return (val, code)