Program to help run MGA Ladder in Haskell