all tasks

Task/Undefined-values/Haskell/undefined-values-6.hs

@@ -0,0 +1,15 @@
+global G1
+
+procedure main(arglist)
+local ML1
+static MS1
+undeftest()
+end
+
+procedure undeftest(P1)
+static S1
+local L1,L2
+every                                                                   #write all local, parameter, static, and global variable names
+   write((localnames|paramnames|staticnames|globalnames)(&current,0))   # ... visible in the current co-expression at this calling level (0)
+return
+end