From dc1ef25f1a7f8e36e93928e5b0288e203833e14a Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 18 Feb 2022 09:39:53 +0200
Subject: Clean up

---
 samples/area.slam | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 samples/area.slam

(limited to 'samples/area.slam')

diff --git a/samples/area.slam b/samples/area.slam
new file mode 100644
index 0000000..57bbfbb
--- /dev/null
+++ b/samples/area.slam
@@ -0,0 +1,7 @@
+define PI       3.141593 ;
+
+define area     dup * PI * ;
+define circumf  PI * 2.0 * ;
+
+10.0 area round .
+10.0 circumf round .
-- 
cgit v1.3