(defwidget name
  :widget parameter
  (box one
    :box1 parameter
    (box two
      :box2 parameter
    )
  )
)

(defwidget name
  :widget parameter
  (box one
  )
)

(defwidget name