Some Haskell code to calculate weights for a series of workouts