setupPointStone point stone = do
    addBlack <- transMapList (listOf      stone) "AB"
    addWhite <- transMapList (listOf      stone) "AW"
    remove   <- transMapList (listOfPoint point) "AE"
    setupFinish (Set.fromList addBlack) (Set.fromList addWhite) (Set.fromList remove)
setupPointStone point stone = do
    addBlack <- transMapList (listOf      stone) "AB"
    addWhite <- transMapList (listOf      stone) "AW"
    remove   <- transMapList (listOfPoint point) "AE"
    setupFinish (Set.fromList addBlack) (Set.fromList addWhite) (Set.fromList remove)
setupPointStone point stone = do
    addBlack <- transMapList (listOf      stone) "AB"
    addWhite <- transMapList (listOf      stone) "AW"
    remove   <- transMapList (listOfPoint point) "AE"
    setupFinish (Set.fromList addBlack) (Set.fromList addWhite) (Set.fromList remove)