mkComp :: Int -> State
mkComp i = (collectStates dummyCState [sp,csx]) `tagNode`
           ("c" ++ show i)
    where csx = collectStates dummyCState $ map mkIntData [i,i+1]
          sp  = mkDoubleParam "Theta" (0.2 * (fromIntegral i))
mkComp :: Int -> State
mkComp i = (collectStates dummyCState [sp,csx]) `tagNode`
           ("c" ++ show i)
    where csx = collectStates dummyCState $ map mkIntData [i,i+1]
          sp  = mkDoubleParam "Theta" (0.2 * (fromIntegral i))
mkComp i = (collectStates dummyCState [sp,csx]) `tagNode`
           ("c" ++ show i)
    where csx = collectStates dummyCState $ map mkIntData [i,i+1]
          sp  = mkDoubleParam "Theta" (0.2 * (fromIntegral i))