(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"]))
    )
)