test :: IO ()
test = do
  let x :: Bool -> Int
      x False = _w0
      x True = _w1
  pure ()