- m = mapM semVarDecl vd >>= \vds ->
- mapM semFunDecl fd >>= \fds1 ->
- mapM semFunDecl fds1 >>= \fds2 ->
- pure (vds, fds2)
+ m = mapM semVarDecl vd >>= \vd1 ->
+ mapM semFunDecl fd >>= \fd1 ->
+ mapM semVarDecl vd1 >>= \vd2 ->
+ mapM semFunDecl fd1 >>= \fd2 ->
+ mapM semVarDecl vd2 >>= \vd3 ->
+ mapM semFunDecl fd2 >>= \fd3 ->
+ mapM semVarDecl vd3 >>= \vd4 ->
+ mapM semFunDecl fd3 >>= \fd4 -> //Dit is puur om te proberen
+ pure (vd4, fd4)