diff --git a/example/LightWeightFlowControl.forth b/example/LightWeightFlowControl.forth
new file mode 100644
index 0000000..401e815
--- /dev/null
+++ b/example/LightWeightFlowControl.forth
@@ -0,0 +1,8 @@
+~~~
+:0=; n:zero? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:<   lt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:>   gt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:<>  -eq? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:if; [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:?;  dup [ as{ 'popopodr i 'drdrre.. i }as ] if drop ;
+~~~