-- Copyright 2018 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

module Solkattu.Score.Mridangam2018 where
import Prelude hiding ((.), repeat)

import qualified Solkattu.Tala as Tala

import Solkattu.Dsl.Mridangam


e_323_1 :: Korvai
e_323_1 :: Korvai
e_323_1 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
3 Int
19 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$
    Text -> Korvai -> Korvai
comment Text
"All these also work with 332 of course." (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence -> Sequence
make (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d)) (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d))
    , Sequence -> Sequence -> Sequence
make (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
    , Sequence -> Sequence -> Sequence
make (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence -> Sequence
make (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d))
    , Sequence -> Sequence -> Sequence
make (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d))
    , Sequence -> Sequence -> Sequence
make (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
    ]
    where
    make :: Sequence -> Sequence -> Sequence
make Sequence
t3 Sequence
t2 = Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
t3Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
t2Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
t3) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
lh
    lh :: Sequence
lh = Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__ Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__

e_323_2 :: Korvai
e_323_2 :: Korvai
e_323_2 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
4 Int
13 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
rh Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
lh1
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
rh Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
lh2
    ]
    where
    rh :: Sequence
rh = Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    lh1 :: Sequence
lh1 = Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    lh2 :: Sequence
lh2 = Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__

e_18_03_19 :: Korvai
e_18_03_19 :: Korvai
e_18_03_19 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
3 Int
19 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
p)) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
p))
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktpk))  Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktpk))
    ]

e_18_03_28 :: Korvai
e_18_03_28 :: Korvai
e_18_03_28 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
3 Int
27 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence -> Korvai
korvaiS1 Tala
Tala.misra_chapu (Sequence -> Korvai) -> Sequence -> Korvai
forall a b. (a -> b) -> a -> b
$
     Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__ Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__ Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k

e_18_05_25 :: Korvai
e_18_05_25 :: Korvai
e_18_05_25 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
5 Int
25 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r3 Sequence
ktkt Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
ktkt Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
ktkt Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    ]

tir_18_05_25 :: Korvai
tir_18_05_25 :: Korvai
tir_18_05_25 = Korvai -> Korvai
tirmanam (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
5 Int
25 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence -> Korvai
korvaiS1 Tala
Tala.misra_chapu (Sequence -> Korvai) -> Sequence -> Korvai
forall a b. (a -> b) -> a -> b
$
    Tala -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
Tala -> SequenceT sollu -> SequenceT sollu
__sam Tala
Tala.misra_chapu (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$
        Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o) (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)

tir_18_06_15 :: Korvai
tir_18_06_15 :: Korvai
tir_18_06_15 = Korvai -> Korvai
tirmanam (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
6 Int
15 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
Tala.misra_chapu ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$
    [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    -- 42424 as 41414
    [ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall {g}. Sequence g (Note Stroke)
od (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__) (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
    , Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__) (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__) (Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__) (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)

    -- 3x + 2y where x+y = 7, x ends on sam, y = 7 - dur x
    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
4   Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall a. Rest a => a
__ (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k))
    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
4.5 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__) (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o))
    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
5   Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3) (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k))
    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
5.5 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4) (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k))
    -- with fancy takadinna
    , Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__) Sequence
p4
    , Sequence -> Sequence -> Sequence -> Sequence
forall {sollu}.
Pretty sollu =>
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri2 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__) Sequence
p4 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)

    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
6 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk) Sequence
p4
    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
6 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence -> Sequence
forall {sollu}.
Pretty sollu =>
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri2 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk) Sequence
p4 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o)

    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
5  Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence
p4
    , Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
restD Duration
5  Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence -> Sequence
forall {sollu}.
Pretty sollu =>
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri2 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence
p4 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4)
    ]
    where
    tri2 :: SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri2 SequenceT sollu
karv SequenceT sollu
seq SequenceT sollu
karv2 = SequenceT sollu
seq SequenceT sollu -> SequenceT sollu -> SequenceT sollu
forall a. Monoid a => a -> a -> a
. SequenceT sollu
karv SequenceT sollu -> SequenceT sollu -> SequenceT sollu
forall a. Monoid a => a -> a -> a
. SequenceT sollu
seq SequenceT sollu -> SequenceT sollu -> SequenceT sollu
forall a. Monoid a => a -> a -> a
. SequenceT sollu
karv2
        SequenceT sollu -> SequenceT sollu -> SequenceT sollu
forall a. Monoid a => a -> a -> a
. FMatra -> SequenceT sollu -> SequenceT sollu
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
rtakeM FMatra
3 SequenceT sollu
seq SequenceT sollu -> SequenceT sollu -> SequenceT sollu
forall a. Monoid a => a -> a -> a
. SequenceT sollu
karv2 SequenceT sollu -> SequenceT sollu -> SequenceT sollu
forall a. Monoid a => a -> a -> a
. FMatra -> SequenceT sollu -> SequenceT sollu
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
rtakeM FMatra
3 SequenceT sollu
seq
    p4 :: Sequence
p4 = Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k

-- din nakitataka at 140

e_18_06_22 :: Korvai
e_18_06_22 :: Korvai
e_18_06_22 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
6 Int
22 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
make (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su2 (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k))
    , Sequence -> Sequence
make (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su2 (Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__))
    , Sequence -> Sequence
make9 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su2 (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__))
    , Sequence -> Sequence
make9 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su2 (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__))
    , Sequence -> Sequence
make9 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su2 (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k))
    -- TODO then 1 2 3 variations

    , Sequence -> Sequence
make3 (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
make123 (Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k))

    , Sequence -> Sequence
make3 (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
on Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k))
    , Sequence -> Sequence
make123 (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
on Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)))
    , Sequence -> Sequence
make3 (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o)
    ]
    where
    make :: Sequence -> Sequence
make Sequence
p =
          Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on)
          Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
n) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall {g}. Sequence g (Note Stroke)
od Sequence
p
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on)
          Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
n) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
forall {g}. Sequence g (Note Stroke)
od Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. FMatra -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
rtakeM FMatra
1 Sequence
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
forall {g}. Sequence g (Note Stroke)
od
                                         Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. FMatra -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
rtakeM FMatra
1 Sequence
p

    -- TODO I need some kind of start offset to express this naturally
    make9 :: Sequence -> Sequence
make9 Sequence
p =
          Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
od) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
shim Sequence
on Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on)
          Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
shim Sequence
forall {g}. Sequence g (Note Stroke)
n Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
od3 Sequence
p
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
od) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
shim Sequence
on Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on)
          Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
shim Sequence
forall {g}. Sequence g (Note Stroke)
n Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
od3Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
forall {g}. Sequence g (Note Stroke)
od Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. FMatra -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
rtakeM FMatra
1 Sequence
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
forall {g}. Sequence g (Note Stroke)
od
                                                 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. FMatra -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
rtakeM FMatra
1 Sequence
p
        where
        shim :: Sequence Group (Note sollu) -> Sequence Group (Note sollu)
shim Sequence Group (Note sollu)
s = Sequence Group (Note sollu)
s Sequence Group (Note sollu)
-> Sequence Group (Note sollu) -> Sequence Group (Note sollu)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note sollu) -> Sequence Group (Note sollu)
forall g sollu. Sequence g sollu -> Sequence g sollu
su2 Sequence Group (Note sollu)
forall sollu. SequenceT sollu
__4
        od3 :: Sequence
od3 = Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
forall {g}. Sequence g (Note Stroke)
od Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su2 Sequence
forall a. Rest a => a
__

    make3 :: Sequence -> Sequence
make3 Sequence
p = Int -> Sequence -> Sequence
forall g sollu. Int -> Sequence g sollu -> Sequence g sollu
nadai Int
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$
          Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
s3 (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
od) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall {g} {sollu}.
Rest (Sequence g sollu) =>
Sequence g sollu -> Sequence g sollu
shim Sequence
on Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
p Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
s3 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on)
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
s3 (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall {g} {sollu}.
Rest (Sequence g sollu) =>
Sequence g sollu -> Sequence g sollu
shim Sequence
forall {g}. Sequence g (Note Stroke)
n Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall {g}. Sequence g (Note Stroke)
od (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
p)
        where
        s3 :: SequenceT sollu -> SequenceT sollu
s3 = Int -> SequenceT sollu -> SequenceT sollu
forall sollu. Int -> SequenceT sollu -> SequenceT sollu
spread Int
3
        shim :: Sequence g sollu -> Sequence g sollu
shim Sequence g sollu
s = Sequence g sollu
sSequence g sollu -> Sequence g sollu -> Sequence g sollu
forall a. Monoid a => a -> a -> a
.Sequence g sollu
forall a. Rest a => a
__Sequence g sollu -> Sequence g sollu -> Sequence g sollu
forall a. Monoid a => a -> a -> a
.Sequence g sollu -> Sequence g sollu
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence g sollu
forall a. Rest a => a
__

    -- 123 variant for tisram
    make123 :: Sequence -> Sequence
make123 Sequence
p123 = Int -> Sequence -> Sequence
forall g sollu. Int -> Sequence g sollu -> Sequence g sollu
nadai Int
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$
          Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
s3 (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
od) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall {g} {sollu}.
Rest (Sequence g sollu) =>
Sequence g sollu -> Sequence g sollu
shim Sequence
on Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (FMatra -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
takeM FMatra
7 Sequence
p123) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
s3 (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on)
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
s3 (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall {g} {sollu}.
Rest (Sequence g sollu) =>
Sequence g sollu -> Sequence g sollu
shim Sequence
forall {g}. Sequence g (Note Stroke)
n Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
expand
        where
        s3 :: SequenceT sollu -> SequenceT sollu
s3 = Int -> SequenceT sollu -> SequenceT sollu
forall sollu. Int -> SequenceT sollu -> SequenceT sollu
spread Int
3
        shim :: Sequence g sollu -> Sequence g sollu
shim Sequence g sollu
s = Sequence g sollu
sSequence g sollu -> Sequence g sollu -> Sequence g sollu
forall a. Monoid a => a -> a -> a
.Sequence g sollu
forall a. Rest a => a
__Sequence g sollu -> Sequence g sollu -> Sequence g sollu
forall a. Monoid a => a -> a -> a
.Sequence g sollu -> Sequence g sollu
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence g sollu
forall a. Rest a => a
__
        expand :: Sequence
expand = Sequence -> [Sequence] -> Sequence
forall sollu.
SequenceT sollu -> [SequenceT sollu] -> SequenceT sollu
join Sequence
forall {g}. Sequence g (Note Stroke)
od
            [ FMatra -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
takeM FMatra
2 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
p123)
            , FMatra -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
FMatra -> SequenceT sollu -> SequenceT sollu
takeM FMatra
3.5 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
p123)
            , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
p123
            ]

c_18_07_02_sarva :: Korvai
c_18_07_02_sarva :: Korvai
c_18_07_02_sarva = Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
Tala.misra_chapu ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
sarva Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& (Sequence
forall {g}. Sequence g (Note Stroke)
o Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
         Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
sarva Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& (Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
         Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
sarva Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Int -> Sequence
forall sollu. Int -> SequenceT sollu
__n Int
14)
         Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
sarva
    ]
    where sarva :: Sequence
sarva = Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__

e_misra_tisram :: Korvai
e_misra_tisram :: Korvai
e_misra_tisram = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
9 Int
11 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$
    Tala -> [Section] -> Korvai
korvai Tala
Tala.misra_chapu ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations ([Sequence] -> [Section]) -> [Sequence] -> [Section]
forall a b. (a -> b) -> a -> b
$ (Sequence -> Sequence) -> [Sequence] -> [Sequence]
forall a b. (a -> b) -> [a] -> [b]
map Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd ([Sequence] -> [Sequence]) -> [Sequence] -> [Sequence]
forall a b. (a -> b) -> a -> b
$ (Sequence -> Sequence) -> [Sequence] -> [Sequence]
forall a b. (a -> b) -> [a] -> [b]
map (Int -> Sequence -> Sequence
forall g sollu. Int -> Sequence g sollu -> Sequence g sollu
nadai Int
6)
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r5 (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
tkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r5 Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    , (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
p) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence -> Sequence
forall a. Monoid a => a -> a
r5 Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    , Sequence
forall {g}. Sequence g (Note Stroke)
o Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
p) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    , Sequence
forall {g}. Sequence g (Note Stroke)
o Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
nang_kita
    , Sequence
forall {g}. Sequence g (Note Stroke)
o Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence -> Sequence
forall a. Monoid a => a -> a
r5 Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nang_kita
    , Sequence
forall {g}. Sequence g (Note Stroke)
o Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nang_kita Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
o Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nang_kita
    , Sequence
forall {g}. Sequence g (Note Stroke)
o Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
ndk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r3 Sequence
nang_kita
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r3 Sequence
nang_kita
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nang_kita Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nang_kita
    ]
    where
    nang_kita :: Sequence
nang_kita = Sequence
forall {g}. Sequence g (Note Stroke)
n Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)
    ndk :: Sequence g (Note Stroke)
ndk = Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k

e_18_11_12 :: Korvai
e_18_11_12 :: Korvai
e_18_11_12 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
11 Int
12 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
Tala.misra_chapu ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$
    [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
6 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
6
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook)
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r3 Sequence
forall {g}. Sequence g (Note Stroke)
okko Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
kook
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
forall {g}. Sequence g (Note Stroke)
okko Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
kook
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
okkoSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
okkoSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
okkoSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook
    , Sequence -> Sequence
pattern1 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
okkoSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    ]
    where
    pattern1 :: Sequence -> Sequence
pattern1 Sequence
mid = Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
2 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
mid Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
6
    okko :: Sequence g (Note Stroke)
okko = Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o

e_18_11_19 :: Korvai
e_18_11_19 :: Korvai
e_18_11_19 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
11 Int
19 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
jSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
y)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
jSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
jSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
jSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
jSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
lSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l
    ]

e_18_12_08 :: Korvai
e_18_12_08 :: Korvai
e_18_12_08 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
12 Int
8 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
end
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
end
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
end
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
end
    ]
    where end :: Sequence
end = Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k

e_18_12_08_b :: Korvai
e_18_12_08_b :: Korvai
e_18_12_08_b = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
12 Int
8 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [Int -> Sequence -> Sequence
forall g sollu. Int -> Sequence g sollu -> Sequence g sollu
nadai Int
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
aSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
bSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
aSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
bSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
aSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
bSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
a]
    where
    a :: Sequence
a = Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    b :: Sequence
b = Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku

p5_variations :: Korvai
p5_variations :: Korvai
p5_variations = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations ([Sequence] -> [Section]) -> [Sequence] -> [Section]
forall a b. (a -> b) -> a -> b
$
    (Sequence -> Sequence) -> [Sequence] -> [Sequence]
forall a b. (a -> b) -> [a] -> [b]
map (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence)
-> (Sequence -> Sequence) -> Sequence -> Sequence
forall b c a. (b -> c) -> (a -> b) -> a -> c
 Int -> Sequence -> Sequence
forall g sollu. Int -> Sequence g sollu -> Sequence g sollu
nadai Int
5 (Sequence -> Sequence)
-> (Sequence -> Sequence) -> Sequence -> Sequence
forall b c a. (b -> c) -> (a -> b) -> a -> c
 Sequence -> Sequence
forall a. Monoid a => a -> a
r4)
    [ Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    , Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    , Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
n)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    ]

exercises_18_12_19 :: Score
exercises_18_12_19 :: Score
exercises_18_12_19 = [Part Korvai] -> Score
tani
    [ Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
e_npkt -- 80mm, push to 90 or 100
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
e_18_11_19 -- TODO (Index 5) --  n.j.p.j.d.__ -- 60mm, go to 80 or 90
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
e_18_12_19
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
p5_variations -- 120mm to 160mm
    -- , Left $ r2 (k.o.o.k.o.k) . k.o.o.k -- 120mm to 140
    ]

e_npkt :: Korvai
e_npkt :: Korvai
e_npkt = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence -> Korvai
korvaiS1 Tala
adi (Sequence -> Korvai) -> Sequence -> Korvai
forall a b. (a -> b) -> a -> b
$
    Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri (Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku

e_18_12_19 :: Korvai -- 65mm, to 85mm
e_18_12_19 :: Korvai
e_18_12_19 = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
12 Int
19 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$ [Sequence] -> [Section]
forall sollu. [sollu] -> [Section sollu]
variations
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& (Sequence
forall {g}. Sequence g (Note Stroke)
rhSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
rh) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
rh Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r8 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
rh Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
rh2 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
rh2 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
rh2 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r8 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
rh2 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k)
    ]
    where
    rh :: Sequence g (Note Stroke)
rh = Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
lSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
d
    rh2 :: Sequence
rh2 = Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)