Refactored some logic out of main function
Added labour cost to haskell code
Haskell code now calculates labour cost and different floor shapes