Data commit

Task/Currency/Bracmat/currency.bracmat

@@ -0,0 +1,22 @@
+  div$((4000000000000000*550+2*286)+1/2,1):?before-tax
+& div$(!before-tax*765/10000+1/2,1):?tax
+& !before-tax+!tax:?after-tax
+& ( fix
+  =   cents dollars
+    .   mod$(!arg.100):?cents
+      & ( !cents:<10&0 !cents:?cents
+        |
+        )
+      & div$(!arg.100):?dollars
+      & str$(!dollars "." !cents)
+  )
+&   str
+  $ ( "before-tax "
+      fix$!before-tax
+      "\ntax "
+      fix$!tax
+      \n
+      "after-tax "
+      fix$!after-tax
+      \n
+    )