RosettaCodeData/Task/Variable-size-Get/Babel/variable-size-get-1.pb

main:
    { (1 2 (3 4) 5 6)
    dup mu  disp
    dup nva disp
    dup npt disp
    dup nlf disp
    dup nin disp
    dup nhref disp
    dup nhword disp }

disp! : { %d cr << }

Output:
38
6
14
6
7
1
4