load'foo.ijs '
   bar
3 : 'y^2'
   foo
4 : 'x*y-1'
   load
3 : 0
0 load y
:
fls=. getscripts_j_ y
fn=. ('script',x#'d')~
for_fl. fls do.
  if. DISPLAYLOAD_j_ do. smoutput > fl end.
  fn fl
  LOADED_j_=: ~. LOADED_j_,fl
end.
empty''
)
   noun
0
   dyad
4
   monad
3
   foo
4 : 'x*y-1'
   bar
3 : 'y^2'
   3 bar 4
|domain error: bar
|   3     bar 4
|[-9] history-20090903
   data =: 0 define
this is some text
material
more data.
The last line.
)
   data
this is some text
material
more data.
The last line.

   t =: 2 3 4 _1
   t
2 3 4 _1
   tally
#
   #t
4
   #data
53
   2 0 3 4 # t
2 2 4 4 4 _1 _1 _1 _1
   shape
$
   shape t
4
   shape data
53
   reshape
$
   2 3 $ t
 2 3 4
_1 2 3
   t1 =: 2 3 $ t
   t1
 2 3 4
_1 2 3
   #t1
2
   $t1
2 3
   #$t1
2
   4 4$1 0 0 0 0
1 0 0 0
0 1 0 0
0 0 1 0
0 0 0 1
   load'foo.ijs '
   dim t1
2
   data
this is some text
material
more data.
The last line.

   dim data
1
   #a.
256
   data = 10 from a.
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
   +/ data = 10 from a.
4
   +/ data = 'a'
5
   newline =: 0 : 0
)
   +/ data = newline
|length error: lecture
|   +/data    =newline
|[-44] history-20090903
   #newline
0
   newline =: 10 from a.
   from
{
   65 from a.
A
   i.
i.
   integers
|value error: integers
|[-50] history-20090903
   i. 10
0 1 2 3 4 5 6 7 8 9
   (65+i.26) from a.
ABCDEFGHIJKLMNOPQRSTUVWXYZ
   (32 + 65+i.26) from a.
abcdefghijklmnopqrstuvwxyz
   i. 2 3
0 1 2
3 4 5
   i. 2 3 4 5
  0   1   2   3   4
  5   6   7   8   9
 10  11  12  13  14
 15  16  17  18  19

 20  21  22  23  24
 25  26  27  28  29
 30  31  32  33  34
 35  36  37  38  39

 40  41  42  43  44
 45  46  47  48  49
 50  51  52  53  54
 55  56  57  58  59


 60  61  62  63  64
 65  66  67  68  69
 70  71  72  73  74
 75  76  77  78  79

 80  81  82  83  84
 85  86  87  88  89
 90  91  92  93  94
 95  96  97  98  99

100 101 102 103 104
105 106 107 108 109
110 111 112 113 114
115 116 117 118 119
   c =: i. 2 3 4 5
   #c
2
   $c
2 3 4 5
   1 { c
 60  61  62  63  64
 65  66  67  68  69
 70  71  72  73  74
 75  76  77  78  79

 80  81  82  83  84
 85  86  87  88  89
 90  91  92  93  94
 95  96  97  98  99

100 101 102 103 104
105 106 107 108 109
110 111 112 113 114
115 116 117 118 119
   2 { 1 { c
100 101 102 103 104
105 106 107 108 109
110 111 112 113 114
115 116 117 118 119
   2{ 3{2 { 1 { c
117
   1 { c
 60  61  62  63  64
 65  66  67  68  69
 70  71  72  73  74
 75  76  77  78  79

 80  81  82  83  84
 85  86  87  88  89
 90  91  92  93  94
 95  96  97  98  99

100 101 102 103 104
105 106 107 108 109
110 111 112 113 114
115 116 117 118 119
   #1 { c
3
   $1 { c
3 4 5
   'ab ','word2'
ab word2
   #'ab ','word2'
8
   $'ab ','word2'
8
   #$'ab ','word2'
1
   1 2 3,4 5
1 2 3 4 5
   #1 2 3,4 5
5
   first
{.
   rest
}.
   data match (first data),rest data
1
   match
-:
   data = (first data),rest data
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   d=: i. 2 3
   d,1
0 1 2
3 4 5
1 1 1
   d,7 8 9
0 1 2
3 4 5
7 8 9
   #d
2
   d,1,7 8 9
0 1 2 0
3 4 5 0
1 7 8 9
   d
0 1 2
3 4 5
   d,1
0 1 2
3 4 5
1 1 1
   1,7 8 9
1 7 8 9
   d,1,7 8 9
0 1 2 0
3 4 5 0
1 7 8 9
   'ab', 1 2 3
|domain error
|   'ab'    ,1 2 3
|[-85] history-20090903
   box
<
   < 1 2 3
+-----+
|1 2 3|
+-----+
   (<'ab'),<1 2 3
+--+-----+
|ab|1 2 3|
+--+-----+
   #(<'ab'),<1 2 3
2
   f=:#(<'ab'),<1 2 3
   #f
1
   1 { f
|index error
|   1    {f
|[-92] history-20090903
   f=:(<'ab'),<1 2 3
   #f
2
   1 { f
+-----+
|1 2 3|
+-----+
   open
>
   1{>1{f
2
   1{f
+-----+
|1 2 3|
+-----+
   >1{f
1 2 3
   {>1{f
+-----+
|1 2 3|
+-----+
   1{>1{f
2
   f=: 'ab';1 2 3
   f
+--+-----+
|ab|1 2 3|
+--+-----+
   i.10
0 1 2 3 4 5 6 7 8 9
   ;/i.10
+-+-+-+-+-+-+-+-+-+-+
|0|1|2|3|4|5|6|7|8|9|
+-+-+-+-+-+-+-+-+-+-+