Write the BreakOut(classic game) using a Haskell.