(version 1000)

(serializator "levels"

    (procedure "level3"
        (arg "a_name" (string))
        (arg "a_len" (int))
    )

    (struct "Level3" "level3"
  ;      (field "lvl3_name" (f/string ["a_name"]))
        (field "lvl3_len" (f/int64 ["a_len"]))
    )

    (procedure "level2"
        (proc "p_level3" ["level3"] (proc-allow [collection]))
    )
    (procedure "level1"
        (arg "a_tag" (string))
        (proc "p_level2" ["level2"])
    )

    (rootprocedure
        (proc "p_level1" ["level1"])
    )

    (rootstruct "Network"
        (field "lvl_tag" (f/string ["p_level1" "a_tag"]))
        (field "lvl_names" 
            (f/vector 
                (f/string ["p_level1" "p_level2" "p_level3" "a_name"])
            )
        )
        (field "levels" 
            (f/vector 
                (f/struct ["p_level1" "p_level2" "p_level3"])
            )
        )
    )

)