new file mode 100644
--- /dev/null
+++ b/test/g7x.ijs
@@ -0,0 +1,88 @@
+NB. 7!: -----------------------------------------------------------------
+
+NB. Testing malloc/free; try  f 200  or  g 40000, etc.
+
+sp  =: 7!:0
+space=:7!:2
+
+pr =: [             NB. for silent iteration
+NB. pr =: 1!:2&2    NB. to see each iteration
+
+f =: 3 : 0
+ old=.sp ''
+ whilst. y=.<:y do.
+  pr y
+ end.
+ old,sp ''
+)
+
+g =: 3 : 0
+ old=.sp ''
+ whilst. y=.<:y do.
+  t=.(?20000)$a.
+  pr y
+ end.
+ old,sp ''
+)
+
+h =: 3 : 0
+ old=.sp ''
+ whilst. y=.<:y do.
+  n=.>:?50
+  a=. (n,n) ?@$ 5000
+  b=.%.a
+  d=.>./|,(=i.n)-a+/ . *b
+  pr y,n,d
+ end.
+ old,sp ''
+)
+
+x=:20
+y=:20
+s=: 2 3
+
+x =: sp ''
+s =: f 30+?200
+y =: sp ''
+x -: y
+
+x =: sp ''
+s =: g 30+?200
+y =: sp ''
+x -: y
+
+x =: sp ''
+s =: h 3+?7
+y =: sp ''
+x -: y
+
+t =: sp ''
+0 = $$t
+t = <.t
+0<:t
+
+0<space 't=:i.100'
+t-:i.100
+(IF64{1064 2500)>|(n*IF64{4 8)-space 'i.n' [ n=:1000
+(IF64{1064 2500)>|(n*IF64{4 8)-space 'i.n' [ n=:2000
+
+'domain error' -: 7!:2 etx 0 1
+'domain error' -: 7!:2 etx 3 4 _5
+'domain error' -: 7!:2 etx 3j4   
+'domain error' -: 7!:2 etx 3;4 5
+
+
+NB. 7!:3 ----------------------------------------------------------------
+
+t=:7!:3 ''
+t -: <.t
+0 < t
+2 -: #$t
+2 -: {:$t
+t -: /:~t
+*./~:{."1 t
+
+
+4!:55 ;:'f g h n old pr s sp space t x y '
+
+