playSeq :: [(Float, Float)] -- ^ (Frequency, Duration)
        -> Z80ASM
playSeq = sequence_ . map (uncurry play)
playSeq :: [(Float, Float)] -- ^ (Frequency, Duration)
        -> Z80ASM
playSeq = sequence_ . map (uncurry play)
playSeq = sequence_ . map (uncurry play)