module Config where

data Config = White | Black

otherConfig : Config -> Config
otherConfig config =
  case config of
    White -> Black
    Black -> White