なんかおかしいな
なぜだめなんだろうか。眠くてもうだめ。
main = piStart False Nothing mainPr mainPr :: Maybe (I (), NewP) -> PiMonad () mainPr _ = do s <- new fork $ fib 10 s s' <- recv s cout <! s' exit <! (0::Int) fib n r | n < 1 = r <! return 1 | otherwise = do a <- new b <- new fib (n-1) a fib (n-2) b a' <- recv a b' <- recv b r <! (a' + b')