../ibin/lam t-lam -":::::" t-lam.dat:::::link "../ilib/collate"
:::::
:::::procedure main()
::::: while line := read() do {
::::: line2 := read() | stop("data error")
::::: x := collate(line,line2)
::::: write(x)
::::: write(decollate(x,1))
::::: write(decollate(x,2))
::::: }
:::::end