Prelude> :l trees3a.hs
[1 of 1] Compiling Main ( trees3a.hs, interpreted )

trees3a.hs:133:3:
parse error (possibly incorrect indentation or mismatched brackets)
Failed, modules loaded: none.


forloop 0 logic3colparm bb1othersparam = return ()
forloop n logic3colparm bb1othersparam =
do
if n == 2
then let allparams1 = replicateM 2 logic3colparm
else let logic3col2 = [ x | (x,y) <- bb1othersparam ]; let allparams1 = replicateM 2 logic3col2 <-- 133 at here
let alltrees1 = [getAllTrees c | x <- allparams1, c <- [x]]
bb1true

main =
logic3row = replicateM 3 [0.0, 1.0, 2.0]
logic3col = [[logic3row!!i!!2 | i <- [0..(27-1)]],[logic3row!!i!!1 | i <- [0..(27-1)]],[logic3row!!i!!0 | i <- [0..(27-1)]]]
finaltrue = forloop 2 logic3col
print "true length:"
print length finaltrue

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)