(* a simple scale *) u= Transpose[CellularAutomaton[6, {{1}, 0}, 29]] sound1 = Sound[SoundNote[DeleteCases[3 Range[30] Reverse[#], 0] - 48, .3] & /@ u] Export["samantha_go1.midi", sound1, "Midi"] (* What living inside a cell would sound like (if organelle movements sounded like pianos *) u = Transpose[CellularAutomaton[45, {{1}, 0}, 27]]; sound2 = Sound[SoundNote[DeleteCases[4 Range[28] Reverse[#], 0] - 48, .3] & /@ u ]; Export["samantha_go2.midi", sound2, "Midi"]