(version 1000)

;(alpha 2..8 4u..=5u)


(serializator "test10"
    (procedure "alpha"
        (arg "alpha_lvl" range int)
        (arg "beta_lvl" range-inc uint)
    )

    (rootprocedure
        (proc "main1" '("alpha"))
    )

    (rootstruct "CommonLevels"
        (field "lvl_a" (f/range '("main1" "alpha_lvl")))
        (field "lvl_b" (f/rangei '("main1" "beta_lvl")))
    )
)