#midge

cat << end

@head {
$tempo 200
$time_sig 4/4

}
@body {

@channel 1 {
\$patch 3
#instrument
\$length 12
\$octave 6
\$pan 120
#balance of left, right stereo

end

for ((i=0; i<12; i++))
do
echo c c c c c r r r r r r r r r r r r r r r r r r r r r r r
# average 28 day cycle, 5 day menstruation

done
cat << end

}


@channel 2 {
\$patch 8
\$length 12
\$octave 3
\$pan 60


end



echo c c c c c c c c d e f g a b c4 d4 e4 f4 g4 a4 b4 c5 d5 e5 f5 g5 a5 b5 c6 d6 e6 d6 c6 b5 a5 g5 f5 e5 d5 c5 b4 a4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 53 day cycle, 8 day menstruation
echo c c c c c c d e f g a b c4 d4 e4 f4 g4 a4 b4 c5 b4 a4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 34 day cycle, 6 day menstruation
echo c c c c c c c c d e f g a b c4 d4 e4 f4 g4 a4 b4 c5 c5 b4 a4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 36 day cycle, 8 day menstruation
echo c c c c c c d e f g a b c4 d4 e4 f4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 27 day cycle, 6 day menstruation
echo c c c c c d e f g a b c4 d4 e4 f4 g4 a4 b4 c5 c5 b4 a4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 33 day cycle, 5 day menstruation
echo c c c c c d e f g a b c4 d4 e4 f4 g4 a4 b4 c5 b4 a4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 32 day cycle, 5 day menstruation
echo c c d e f g a b c4 d4 e4 f4 g4 a4 b4 c5 d5 e5 f5 g5 a5 a5 g5 f5 e5 d5 c5 b4 a4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 40 day cycle, 2 day menstruation
echo c c c c d e f g a b c4 d4 e4 f4 g4 a4 b4 a4 g4 f4 e4 d4 c4 b3 a3 g3 f3 e3 d3
# 29 day cycle, 4 day menstruation

cat << end



}
}
end