-- Copyright 2016 Evan Laforge
-- This program is distributed under the terms of the GNU General Public
-- License 3.0, see COPYING or http://www.gnu.org/licenses/gpl-3.0.txt

{-# LANGUAGE RecordWildCards #-}
module Solkattu.Score.Mridangam2016 where
import Prelude hiding ((.), repeat)

import Solkattu.Dsl.Mridangam


t_16_11_14 :: Korvai
t_16_11_14 :: Korvai
t_16_11_14 = Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2016 Int
11 Int
14 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> Sequence Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi forall a b. (a -> b) -> a -> b
$ forall g sollu. Int -> Sequence g sollu -> Sequence g sollu
nadai Int
6 forall a b. (a -> b) -> a -> b
$
    forall sollu. SequenceT sollu -> SequenceT sollu
tri (forall sollu.
Pretty sollu =>
FMatra -> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
reduce3 FMatra
1 forall a. Monoid a => a
ø (forall {g}. Sequence g (Note Stroke)
oStack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
&forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oStack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
&forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oStack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
&forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oStack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
&forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oStack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
&forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3