AH
Size: a a a
AH
I
AH
AH
AH
X
AH
I
printf
слишком хитрый.AH
g
AH
AH
let expr, exprImpl = createParserForwardedToRef()
let number = many1 digit |>> Number
let sepOrEnd = (spaces1 <|> (spaces >>. followedByString ")"))
let listElement = expr .>> sepOrEnd
let series = spaces >>. many listElement |>> List
let list = between (pchar '(') (pchar ')') series
do exprImpl := choice [ number; list ]
AH