syntax error in expression "": premature end of expression
    while executing
"expr $price"
    (procedure "formatted_price" line 8)
    invoked from within
"formatted_price $price $prod_discount $cat_discount"
    invoked from within
"subst {
      
[formatted_price $price $prod_discount $cat_discount]