The program we wrote is available on Repl.it at https://repl.it/@tmcl1/BindYourLove#Main.hs

It's also available on github at https://github.com/tmcl/BindYourLove