Plaster

common-lisp
(define-burden paint-application ((feet :label "Square feet of paint") (price :label "Price of paint per square foot")) ((paint (/ feet 115) :format "~$ gallons" :label "Paint volume") (hours (/ feet 115/8) :format "~$ hours" :label "Hours") (paint-cost (* paint price) :format "$~$" :label "Paint cost") (labour (* hours 20) :format "$~$" :label "Labour cost") (total (+ labour paint-cost) :format "$~$" :label "Total cost")) :button "Get quote")