computeRibbonFeet :: Int -> Int -> Int -> Int
computeRibbonFeet smallDimension medDimension bigDimension
    | smallDimension <= 0 = 0
    | medDimension <= 0 = 0
    | bigDimension <= 0 = 0
    | otherwise =
      let wrap = smallDimension * 2 + medDimension * 2
          bow = smallDimension * medDimension * bigDimension
      in wrap + bow
computeRibbonFeet :: Int -> Int -> Int -> Int
computeRibbonFeet smallDimension medDimension bigDimension
    | smallDimension <= 0 = 0
    | medDimension <= 0 = 0
    | bigDimension <= 0 = 0
    | otherwise =
      let wrap = smallDimension * 2 + medDimension * 2
          bow = smallDimension * medDimension * bigDimension
      in wrap + bow
computeRibbonFeet smallDimension medDimension bigDimension
    | smallDimension <= 0 = 0
    | medDimension <= 0 = 0
    | bigDimension <= 0 = 0
    | otherwise =
      let wrap = smallDimension * 2 + medDimension * 2
          bow = smallDimension * medDimension * bigDimension
      in wrap + bow