このような挙動をするテンプレートは作れますか？

Question

var ans = int.low
for i in 0..<10:
    let n = stdin.readLine.len
    if n > ans:
        ans = n

と書くようなところを、

let ans = MAX:
    for i in 0..<10:
        eval stdin.readLine.len

みたいに書けるようなテンプレートは作れますか？

eval は MAX文の中でだけ使える予約語みたいな。
continue とかが for文の中でだけ使えるのと同じようなノリで。

template MAX(eval:untyped, body:untyped) :int =
    proc exec(eval:proc(x:int)) = body
    var ans = int.low
    exec do (x:int) -> void:
        if x > ans: 
            ans = x
    ans

let ans = MAX eval:
    for i in 0..<10:
        eval stdin.readLine.len

これだといけるのですが、

template MAX(eval:untyped, body:untyped) :int =
    proc exec(eval:proc(x:int)) = body
    var ans = int.low
    exec do (x:int) -> void:
        if x > ans: 
            ans = x
    ans

echo MAX eval:
    for i in 0..<10:
        eval stdin.readLine.len

こう書くとコンパイルエラーになってしまいます。
引数が1つ増えちゃうのもちょっと嫌です。