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のネストとか、パターンマッチとか。