Gabriel Lebec glebec

## Main.hs
module Main where

{-
This is a simulation of a problem posed by Daniel Litt in a tweet:
https://twitter.com/littmath/status/1751648838501224790

> You are given an urn containing 100 balls; n of them are red, and
> 100-n are green, where n is chosen uniformly at random in [0, 100].
> You take a random ball out of the urn—it’s red—and discard it. The
> next ball you pick (out of the 99 remaining) is:
	module Main where

	{-
	This is a simulation of a problem posed by Daniel Litt in a tweet:
	https://twitter.com/littmath/status/1751648838501224790

	> You are given an urn containing 100 balls; n of them are red, and
	> 100-n are green, where n is chosen uniformly at random in [0, 100].
	> You take a random ball out of the urn—it’s red—and discard it. The
	> next ball you pick (out of the 99 remaining) is: