/usr/share/axiom-20170501/input/strtbl.input is in axiom-test 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | )set break resume
)spool strtbl.output
)set message test on
)set message auto off
)clear all
--S 1 of 3
t: StringTable(Integer) := table()
--R
--R
--R (1) table()
--R Type: StringTable(Integer)
--E 1
--S 2 of 3
for s in split("My name is Ian Watt.",char " ")
repeat
t.s := #s
--R
--R Type: Void
--E 2
--S 3 of 3
for key in keys t repeat output [key, t.key]
--R
--R ["Watt.",5]
--R ["is",2]
--R ["My",2]
--R ["name",4]
--R ["Ian",3]
--R Type: Void
--E 3
)spool
)lisp (bye)
|