arbitraryS, arbitraryP, arbitraryO :: Gen (Node)
arbitraryS = oneof $ map return $ unodes ++ bnodes
arbitraryS, arbitraryP, arbitraryO :: Gen (Node)
arbitraryS = oneof $ map return $ unodes ++ bnodes
arbitraryS = oneof $ map return $ unodes ++ bnodes