1 files changed, 102 insertions, 0 deletions
diff --git a/src/input/stream2.input.pamphlet b/src/input/stream2.input.pamphlet
new file mode 100644
index 00000000..1cf80cc8
--- /dev/null
+++ b/src/input/stream2.input.pamphlet
@@ -0,0 +1,102 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input stream2.input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{compiler bug fix}
+<<compiler bug fix>>=
+)set functions compile on
+@
+\section{License}
+<<license>>=
+--Copyright The Numerical Algorithms Group Limited 1991.
+@
+<<*>>=
+<<license>>
+
+)clear all
+)set stream calculate 20
+)set functions cache all
+<<compiler bug fix>>
+u==[i+j for i in (-4)..10 | i < 5 for j in 4.. | j < 10]
+u
+reduce(0::Integer,+,u)
+)clear all
+u(m,n)==[i for i in m..n]
+u(3,6)
+reduce(+,u(3,6))
+reduce(+,u(3,8))
+)clear all
+n==10
+u:=[i for i in 0..n]
+v==[i for i in 0..n]
+v
+n==15
+u
+v
+)clear all
+n:=2
+m:=3
+u:=[[i*j for j in 1..n] for i in 1..m]
+n:=10
+u
+)clear all
+u==[i for i in m..n]
+)set mes test off
+u
+)set mes test on
+n:=7
+m:=3
+u
+reduce(+,u)
+n:=2
+u
+reduce(+,u)
+m:=-3
+u
+reduce(+,u)
+)clear all
+u==[[i+j for i in 0..j] for j in 0..n]
+)set mes test off
+u
+)set mes test on
+n:=5
+u
+n:=10
+u
+n:=1
+u
+n:= 0
+u
+n:=-1
+u
+)clear all
+)set streams calculate 10
+u==[[i+j for i in 0..] for j in 0..]
+u
+)clear all
+u(m,n)==[[i+j for j in 1..m] for i in 1..n]
+u(3,6)
+reduce(append,u(3,6))
+)clear all
+u(m,n)==[[i*j for j in m..] for i in n..]
+u(3,6)
+)clear all
+)set streams calculate 3
+[[[i+j+k for i in 0..] for j in 0..] for k in 0..]
+n:=5
+[[[i+j+k for i in 0..] for j in 0..] for k in 0..n]
+[[[i+j+k for i in 0..j] for j in 0..k] for k in 0..]
+[[[i+j+k for i in 0..j] for j in 0..k] for k in 0..n]
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}