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
|
Loading image file :/usr/local/lang/psl/bin/Linux_elf/pslcomp.img
Portable Standard Lisp Compiler
Usage: PSLCOMP source-file ...
PSL 3.4 Compiler, 10-Nov-19
1 lisp> ""
2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > 2 > (t)
3 > 3 > 3 > 3 > 3 > 3 > 3 > 3 > 3 > 3 > 3 > 3 > 3 > (t)
4 > 4 > 4 > 4 > 4 > 4 > 4 > 4 > 4 > 4 > 4 > 4 > 4 > (t)
5 > 5 > 5 > 5 > 5 > 5 > 5 > 5 > 5 > 5 > 5 > 5 > 5 > 5 > *** numeric-ops already loaded
(t)
6 > 6 > 6 > 6 > 6 > ("$bmexe/" "" "$pl/" "$pll/")
7 > 7 > 7 > ("$bmload/" "$bmexe/" "" "$pl/" "$pll/")
8 > 8 > 8 > *** loading $bmload/slext.b
*** loading $pl/pp.b
*** useful already loaded
*** loading $pl/fast-int.b
*** numeric-ops already loaded
*** fast-int loaded
*** Function `prettyprint' has been redefined
*** Function `pp' has been redefined
*** pp loaded
*** Function `sprint' has been redefined
*** slext loaded
nil
9 > 9 > 9 > nil
10 > ""
11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > 11 > nil
12 > nil
*** Garbage collection starting
*** GC 1 21-Aug-2007 16:47:35, 0 ms (0%), 80133 occupied, 2044860 free
nil
14 > nil
!A!Nc!H!N=
!A!Nc!H!N2l!O!W!E!Rc!H!N
!A!Nc!H!N2h!Ic!H!N!S
!A!Nc!H!N2l!A!S!Tv!X
!A!Nc!H!N2d!I!F!F
!A!Nc!H!N2l!E!N!G!T!H
!A!Nsethigherchains
!A!Ns!E!Td!I!F!F
!A!Nsdp0?
!A!Nsdpt!A!I!L
!A!Nsdp2f!I!R!S!Tsdpt!M
!A!Nsdp2f!I!R!S!Tc!H!N
!A!Nsdp2f!I!R!S!Tqp!O!L
!A!Nsdp2n!E!X!Tsdpt!M
!A!Nsdp2n!E!X!Tc!H!N
!A!Nsdp2n!E!X!Tqp!O!L
!A!Nsdpt!M2c!H!N
!A!Nsdpt!M2qp!O!L
!A!Nc!H!N&qp!O!L2sdpt!M
!A!Nc!H!N&qp!O!L2sdpt!A!I!L
!A!Nm!A!K!En!E!Wsdp
!A!Nn!E!X!Tsdpt!A!I!L
!A!Na!P!P!E!N!Dsdpt!A!I!L
!A!Nc!O!P!Ysdp
!A!Ni!N!S!E!R!Tsdpt!M
!A!Nr!E!M!O!V!Esdpt!M
!A!Nr!E!P!L!A!C!Ec!H!N!I!Nsdpt!M
!A!Nr!E!P!L!A!C!Eqp!O!L!I!Nsdpt!M
nil
nil
15 > 15 > FASLOUT: (DSKIN files) or type in expressions
When all done execute (FASLEND)
t
16 *DEFN > 16 *DEFN > !A!Nprolongchain printchain chain2augmon setchainstarts setchainends
!A!No!R!Dr!I!N!Gconstructnewchains !A!Nhm!A!Xr!I!N!Gconstructnewchains
!A!No!R!Dt!W!Om!O!D!U!L!E!Sconstructnewchains !A!Nhm!A!Xt!W!Om!O!D!U!L!E!Sconstructnewchains
!A!Nconstructzerochains !A!Nnewgbelm2chain !A!Nlesschain !A!N!C!Rlesschain1
!A!N!C!Ri!N!D!E!X2c!H!N !A!N!C!Ri!N!S!E!R!Tc!H!N !A!N!C!Rm!A!K!Ec!H!A!I!N
setedgestring getedgestring setedgestringprinting getedgestringprinting
sethommaxdegree gethommaxdegree a!N!I!C!Ks!E!Thd!E!Gm!A!X a!N!I!C!Ku!N!S!E!Thd!E!Gm!A!X
!A!Ne!X!T!R!A!C!Tc!H!Nm!O!D!E!S17 *DEFN > !A!Nconcattenspolmon !A!Nmaketenspol !A!Nhighesttensmonom2p!U!R!Em!O!N
!A!Ntensdpt!Mlessp !A!Nr!E!S!T!O!R!Et!E!N!S!O!R!D!E!R !A!Nsortsdt!P
!A!Ndestructaddtenspols !A!Nextracthightensmon !A!N!T!Pprintqpolorconstant18 *DEFN > !A!Nsdp_prettyprintsdp !A!Ndp_prettyprintsdp printtensorpolsdistributed
printtensorpolssemidistributed gettensorpolsprintmode !A!Ne!X!T!R!A!C!Ttpm!O!D!E!S
!A!Na!S!S!I!G!Nsdpm!O!D!E !A!Na!S!S!I!G!Ntm!S!T!R!I!N!G!S19 *DEFN > !A!Ndiff !A!N!D!Iinteg20 *DEFN > !A!Nbettiinit !A!N!B!Tnumberofchains member2nil !A!N!B!Tzeroprolong !A!N!B!Talign
!A!N!B!Tmakematrixline !A!N!B!Tmakematrix !A!Nr!I!N!Gbetti !A!Nallbetti
printbettinumber printbetti printcurrentbetti !A!N!B!Tm!A!Cc!O!R!R!E!C!T
!A!N!B!Tm!A!Cs!E!T macbettiprint !A!Ne!X!T!R!A!C!Tb!E!T!T!Im!O!D!E!S21 *DEFN > mprint cflineprint rank inputmatrix2redandmatrix !A!Nrank22 *DEFN > !B!N!Ms!C!R!E!E!Ni!N!P!U!T f!A!C!Ta!L!Gs!C!R!E!E!Ni!N!P!U!T h!O!C!Hs!C!R!E!E!Ni!N!P!U!T
!B!N!Mc!H!E!C!Ki!N!P!U!T !B!N!Mc!H!E!C!Ko!U!T!P!U!T !A!N!R!E!Ss!C!R!E!E!Ni!N!P!U!T
warningiffinitegb23 *DEFN > !A!N!B!N!Mp!A!I!R2am!O!N !A!N!B!N!Mp!A!I!R2c!H!N !A!N!B!N!Mc!H!N&am!O!N2p!A!I!R
!A!Nupdatesortedchains !A!N!B!N!Ms!E!Ti!N!D!E!Xl!I!M!I!T!S !A!N!B!N!Mlmnwi!N!I!T
!A!N!B!N!Mu!P!D!A!T!Elmnw !A!N!B!N!Ml!I!S!Tt!E!N!S!O!Rm!O!N!S
!A!N!B!N!Mt!W!Om!O!D!U!L!E!Sbettiinit !A!N!B!T!B!N!Mt!W!Om!O!D!U!L!E!Sm!A!K!Em!A!T!R!I!Xl!I!N!E
!A!N!B!T!B!N!Mt!W!Om!O!D!U!L!E!Smakematrix !A!Nt!W!Om!O!D!U!L!E!Sbetti24 *DEFN > settenspolprtstrings gettenspolprtstrings r!I!N!Gr!E!S!O!L!U!T!I!O!Ni!N!I!T
t!W!Om!O!D!U!L!E!Sr!E!S!O!L!U!T!I!O!Ni!N!I!T calcbetti onflybetti getbettinums
getbtorder getbtdegree getbtvalue !A!N!I!Fr!I!N!Gr!E!S!O!L!U!T!I!O!Nf!I!Xd!E!G!R!E!E
!A!N!I!Ft!W!Om!O!D!U!L!E!Sr!E!S!O!L!U!T!I!O!Nf!I!Xd!E!G!R!E!E
!A!N!I!Fm!O!D!U!L!Er!E!S!O!L!U!T!I!O!Nf!I!Xd!E!G!R!E!E printnewchainsdiff
printchainsdiff prtchndiff !A!Nr!E!S!O!L!U!T!I!O!Nf!I!X!Cd!E!Ge!N!D
r!E!S!O!L!U!T!I!O!Nd!O!N!E r!E!S!O!L!U!T!I!O!Nc!L!E!A!R clearresolution
anickdisplay bettidisplay betticalc calculateanickresolutiontolimit
e!X!T!R!A!C!Ta!N!I!C!Km!O!D!E!S r!E!S!T!O!R!Ea!N!I!C!Km!O!D!E!S
setanickresolution a!N!I!C!Kr!I!N!Go!B!J!E!C!T a!N!I!C!Km!O!D!U!L!Eo!B!J!E!C!T
a!N!I!C!Kt!W!Om!O!D!U!L!E!So!B!J!E!C!T a!N!I!C!Kf!A!C!Ta!L!Go!B!J!E!C!T25 *DEFN > *** Init code length is 214
**fasl**initcode**26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 > 26 >
Quitting
|
