USING: arrays command-line kernel math math.parser namespaces sequences values prettyprint ; IN: meaningless-benchmark VALUE: counter 0 to: counter TUPLE: node children ; : counter++ ( -- ) counter 1 + to: counter ; : ( children -- node ) counter++ node boa ; : make-tree ( depth -- tree ) dup 1 > [ 1 - [ make-tree ] [ make-tree ] bi 2array ] [ drop f ] if ; : parameter ( -- n ) command-line get first string>number ; parameter make-tree drop counter .