doubleEveryOther :: [Integer] -> [Integer]
doubleEveryOther = reverse . zipWith (*) oneTwo . reverse
  where
    oneTwo = 1 : 2 : oneTwo
doubleEveryOther :: [Integer] -> [Integer]
doubleEveryOther = reverse . zipWith (*) oneTwo . reverse
  where
    oneTwo = 1 : 2 : oneTwo
doubleEveryOther = reverse . zipWith (*) oneTwo . reverse
  where
    oneTwo = 1 : 2 : oneTwo