Concurrent Clean: for-notation
こんな感じ。
module Main extension for-notation import StdBase, OptBase, OptFile Start w # (f,w) = stdio w f = for f fwrites "how many? " ok,i <- freadi | not ok = return fwrites (toString ['a' \\ _ <- [1..i]]) $> newline return (_,w) = fclose f w #! w = w = (n,w)
この辺で基本形は完成かな。
あと、forのネストとか、パターンマッチとか。