reduce fn acc [] = acc
reduce fn acc (x:xs) = do 
  let accu = fn acc x 
  reduce fn accu xs

main = do
  let nums = [1..5]
  print $ nums
  print $ reduce (+) 0 nums
  print $ reduce (*) 1 nums