13 lines
331 B
Common Lisp
13 lines
331 B
Common Lisp
(scl 2)
|
|
(let
|
|
(Before
|
|
(+
|
|
(* 4000000000000000 5.50)
|
|
(* 2 2.86) )
|
|
Tax (*/ Before 7.65 100.00)
|
|
Total (+ Before Tax)
|
|
Fmt (17 27) )
|
|
(tab Fmt "Total before tax:" (format Before *Scl "." ","))
|
|
(tab Fmt "Tax:" (format Tax *Scl "." ","))
|
|
(tab Fmt "Total:" (format Total *Scl "." ",")) )
|