[let | MODEL [ 50 1 0 100 ] | [let | VIEW [ MODEL [ first round number>string ] ] CONTROL [ MODEL ] | 1 >>fill VIEW add-gadget CONTROL add-gadget "test" open-window ] ]