File trivb.tree

program
   /
  /
 graph1 -- progn -- progn
            /        /
           /        /
        output     := --- progn
                  /        /
                 /        /
               lim -- 7  := ---- label -- if
                        /         /      /
                       /         /      /
                      i -- 0    0      <= ----- progn
                                      /          /
                                     /          /
                                    i -- lim  funcall ----- := ---- goto
                                              /             /        /
                                             /             /        /
                                          writeln -- '*'  i -- +   0
                                                              /
                                                             /
                                                            i -- 1