              . fmap (\x -> bool x '@' $ x == 'b')
              . intercalate "."
              . fmap (\(z, o) -> nameOfNote (head ns) z ++ "/" ++ show o)
              . flip zip is
              $ intsFromNotes ns
  where
    (ns, is) = unzip nos


