raiseOctave :: Float -> Word8 -> Float
raiseOctave freq octave = iterate (*2) freq !! fromIntegral octave
raiseOctave :: Float -> Word8 -> Float
raiseOctave freq octave = iterate (*2) freq !! fromIntegral octave
raiseOctave freq octave = iterate (*2) freq !! fromIntegral octave