dimensionsToSurfaceArea :: [Int] -> Int
-- this feels really dumb, yay knowledge gaps
dimensionsToSurfaceArea dims =
  let middle = head . tail
      srtd = sort dims
  in computeRibbonFeet (head srtd) (middle srtd) (last srtd)
dimensionsToSurfaceArea :: [Int] -> Int
dimensionsToSurfaceArea dims =
  let middle = head . tail
      srtd = sort dims
  in computeRibbonFeet (head srtd) (middle srtd) (last srtd)
dimensionsToSurfaceArea dims =
  let middle = head . tail
      srtd = sort dims
  in computeRibbonFeet (head srtd) (middle srtd) (last srtd)