0[]def 1 1 300{dup =only(:)print 9{1 1 20{2 index 1 index dup mul sub load dup
length 3 index lt{[1 index aload length 2 add index]4 index exch def length 3 1
roll}if pop pop}for}stopped 4 index load{( )print =only}forall()=}for