(widget
 'buy-or-sell-center
 (group-box
  (@ (title " Buy or Sell"))
  (div
   ,(map (lambda (stock)
           `(label (@ (class "inline-label"))
                   (input (@ (type "radio") (value ,(stock-name stock))
                             (name "buy-stock-name-input"))
                          " " ,(stock-name stock))
                   (br))) stocks))
  (div (column-layout
        (label "shares: "
               (input (@ (id "number-of-shares") (type "text") (name "shares"))))
        (label "money: "
               (input (@ (type "text") (name "money") (id "buy-money-input")))))
       (column-layout (button (@ (class "button tiny expand") (name "buy-sell")
                                 (id "buy-shares") (type "submit")) "buy")
                      (button (@ (class "button tiny expand") (name "buy-sell")
                                 (id "sell-shares") (type "submit")) "sell"))))