-- Copyright 2020 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.Mridangam2020 where
import           Prelude hiding ((.), repeat)

import           Solkattu.Dsl.Mridangam


-- * exercises

e_20_02_24 :: Korvai
e_20_02_24 :: Korvai
e_20_02_24 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
2 Matra
24 (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
$ Korvai -> Korvai
tirmanam (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 -> 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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktokSequence -> 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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktokSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook))

e_20_03_27 :: Korvai
e_20_03_27 :: Korvai
e_20_03_27 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
2 Matra
27 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Text -> Korvai -> Korvai
source Text
"anand" (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi ([Sequence] -> Korvai) -> [Sequence] -> Korvai
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
su (Sequence -> Sequence)
-> (Sequence -> Sequence) -> Sequence -> Sequence
forall b c a. (b -> c) -> (a -> b) -> a -> c
• Sequence -> Sequence
cycle)
    [ 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
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
    , 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)
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)
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)
uSequence -> 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)
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 {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)
pSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktktSequence -> 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)
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)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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
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
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)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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
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)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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
    ]
    where
    cycle :: Sequence -> Sequence
cycle = [Sequence] -> Sequence -> Sequence
forall a. (Semigroup a, Monoid a) => [a] -> a -> a
prefixes [Sequence -> Sequence
prefix Sequence
forall {g}. Sequence g (Note Stroke)
p, Sequence -> Sequence
prefix Sequence
forall {g}. Sequence g (Note Stroke)
k, Sequence -> Sequence
prefix Sequence
forall {g}. Sequence g (Note Stroke)
o, Sequence -> Sequence
prefix Sequence
forall {g}. Sequence g (Note Stroke)
n]
    prefix :: Sequence -> Sequence
prefix Sequence
stroke = Sequence
strokeSequence -> 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
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku

e_20_05_01 :: Korvai
e_20_05_01 :: Korvai
e_20_05_01 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
5 Matra
1 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Text -> Korvai -> Korvai
source Text
"anand" (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ 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)
rh Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
"ó_oó_oó"
    , 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)
rh Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
"ó_oó_oó____p__p"
    , 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)
rh Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
"oóoo_oo_oóoo"
    , 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)
rh Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
"oóoo_oo_oóoo_pp"
    ]
    where
    rh :: Sequence g (Note Stroke)
rh = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a
r4 (Sequence g (Note Stroke) -> Sequence g (Note Stroke))
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a b. (a -> b) -> a -> b
$ 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)
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)
tSequence 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

-- * sarva tani

print_sarva_tani :: IO ()
print_sarva_tani :: IO ()
print_sarva_tani = (Config -> Config) -> Score -> IO ()
realizeScoreM (Abstraction -> Config -> Config
abstract Abstraction
patterns) Score
sarva_tani

sarva_tani :: Score
sarva_tani :: Score
sarva_tani = [Part Korvai] -> Score
tani
    [ Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_05_29
    , Text -> Part Korvai
forall k. Text -> Part k
Comment Text
"sarva, no thom, use vv"
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_06_05
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_06_12
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_06_12_reduction
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_06_19_endings
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_06_19
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_06_19_reduce5
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_01_27
    , Text -> Part Korvai
forall k. Text -> Part k
Comment Text
"namita dimita dimi"
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_02_10
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_02_27
    , Text -> Part Korvai
forall k. Text -> Part k
Comment Text
"farans"
    , Korvai -> Part Korvai
forall k. k -> Part k
K Korvai
sarva_20_05_08
    ]

sarva_20_01_27 :: Korvai
sarva_20_01_27 :: Korvai
sarva_20_01_27 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
1 Matra
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 -> [Section] -> Korvai
korvai Tala
adi
    [ Section -> Section
forall sollu. Section sollu -> Section sollu
x4 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nddn Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
_oo Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nddn Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x4 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ (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.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
forall {g}. Sequence g (Note Stroke)
nddn Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'oo Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nddn Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x4 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ (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.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
forall {g}. Sequence g (Note Stroke)
nd_n  Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'oo  Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nd_n Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x4 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
_d_n Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'oo Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
_d_n Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x4 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
_d_n2 Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'oo2 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
_d_n2 Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x4 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
_n_d Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'oo Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
_n_d Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
6 (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (Sequence
_n_d6 Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
o'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 {g}. Sequence g (Note Stroke)
oSequence -> 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
_n_d6 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
. Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
4 (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (Sequence
_n_d4 Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall {g}. Sequence g (Note Stroke)
o'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) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
_n_d4 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
. Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
4 (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (Sequence
forall {g}. Sequence g (Note Stroke)
o'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)
y))
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
_n_d Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'oo Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
_n_d Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
_d_n Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'oo Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
_d_n Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
forall {g}. Sequence g (Note Stroke)
o'
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x2 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
n_d_ Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
o'_oo'
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x2 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
d_d_ Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
o'_oo'
    -- plain dimita dimi, plus dinNa - din, reduce to 2/avartanam
    --
    -- skip this:
    -- dimita dimi + tang kitataka dhomka
    -- dimita dimi + tang kitataka dugudugu
    ]
    where
    o'oo :: Sequence g (Note Stroke)
o'oo = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o'Sequence 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)
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)
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)
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)
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)
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)
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)
o)
    o'oo2 :: Sequence g (Note Stroke)
o'oo2 = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o'Sequence 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)
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)
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)
o)Sequence 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)
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)
oSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (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)
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)
o)
    _oo :: Sequence
_oo  = 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 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 {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)
o
    nddn :: Sequence g (Note Stroke)
nddn  = 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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
l
    nd_n :: Sequence g (Note Stroke)
nd_n  = Matra -> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => Matra -> a -> a
repeat Matra
2 (Sequence g (Note Stroke) -> Sequence g (Note Stroke))
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a b. (a -> b) -> a -> b
$ 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)
ySequence 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)
yjySequence 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)
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)
y
    _d_n :: Sequence
_d_n  = 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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
yjySequence -> 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)
yjySequence -> 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)
yjySequence -> 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)
y
    _d_n2 :: Sequence
_d_n2 = 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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
yjySequence -> 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)
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)
yjySequence -> 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)
y
    _n_d :: Sequence
_n_d  = 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)
yjySequence -> 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)
yjySequence -> 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)
yjySequence -> 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)
y
    _n_d6 :: Sequence
_n_d6 = 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)
yjySequence -> 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)
yjySequence -> 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)
y
    _n_d4 :: Sequence
_n_d4 = 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)
yjySequence -> 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)
y
    n_d_ :: Sequence g (Note Stroke)
n_d_  = Matra -> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => Matra -> a -> a
repeat Matra
2 (Sequence g (Note Stroke) -> Sequence g (Note Stroke))
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a b. (a -> b) -> a -> b
$ 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)
yjySequence 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)
yjy
    d_d_ :: Sequence g (Note Stroke)
d_d_ = Matra -> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => Matra -> a -> a
repeat Matra
4 (Sequence g (Note Stroke) -> Sequence g (Note Stroke))
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a b. (a -> b) -> a -> b
$ 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)
yjy
    o'_oo' :: Sequence
o'_oo' = 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)
o'Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__5 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 {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 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
__
    yjy :: Sequence g (Note Stroke)
yjy = Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
ySequence 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)
jSequence 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)
y

sarva_20_02_10 :: Korvai
sarva_20_02_10 :: Korvai
sarva_20_02_10 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
2 Matra
10 (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 -> Section
forall sollu. Section sollu -> Section sollu
x2 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ (Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
y) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
oo_o_oo_ Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. (Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
y) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& (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')
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x2 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ (Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
ktok) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
oo_o_oo_' Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. (Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
ktok) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& (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')
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ (Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
ktok) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
oo_o_oo_' Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. (Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
pkd) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& (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')
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
2 (Sequence
d__n_nd_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)
pkd)
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
3 (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)
ySequence -> 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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkd) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
pkdSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkdSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkdSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkd
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
pkdSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> 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)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> 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)
y)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)
pkSequence -> 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 {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)
kSequence -> 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)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> 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)
y)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)
ktpk
        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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
y 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)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> 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)
y)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)
ktpk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ptknpkSequence -> 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)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> 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)
y)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)
ktpk
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
ptknpkSequence -> 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)
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)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ptknpkSequence -> 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)
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)
ySequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ptknpk
            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)
pkSequence -> 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)
y)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ptknpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ptknpkSequence -> 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)
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
forall {g}. Sequence g (Note Stroke)
ptknpkSequence -> 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)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> 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)
y)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)
ktpk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
ktpk
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x2 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_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)
ktpk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
nd_n_nd_' Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
n5 (Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_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)
ktpk)
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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
forall {g}. Sequence g (Note Stroke)
nd_n_nd_' Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
n5 (Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_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)
ktpk)
    ]
    where
    n5 :: Sequence g sollu -> Sequence g sollu
n5 = Matra -> Sequence g sollu -> Sequence g sollu
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
5
    nd_n_nd_ :: Sequence g (Note Stroke)
nd_n_nd_  = 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)
ySequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a
r2 (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)
ySequence 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)
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)
y)
    nd_n_nd_' :: Sequence g (Note Stroke)
nd_n_nd_' = 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)
ySequence 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)
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)
ySequence 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)
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)
y)
    d__n_nd_ :: Sequence
d__n_nd_ = 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)
ySequence -> 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)
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)
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)
y)
    pkd :: Sequence g (Note Stroke)
pkd = Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pkSequence 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
    oo_o_oo_ :: Sequence
oo_o_oo_ = 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 -> 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 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 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 a. Rest a => a
__
    -- delayed gumiki: on the rest
    oo_o_oo_' :: Sequence
oo_o_oo_' = 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'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 -> 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 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'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)
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 a. Rest a => a
__
    d_n_nd_ :: Sequence g (Note Stroke)
d_n_nd_ = 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)
ySequence 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)
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)
ySequence 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)
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)
y
    pk :: Sequence g (Note Stroke)
pk = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence 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)
    ptknpk :: Sequence g (Note Stroke)
ptknpk = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence 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)
tSequence 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)
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)
pSequence 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)
    ktok :: Sequence g (Note Stroke)
ktok = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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)
tSequence 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)
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)
k)
    ktpk :: Sequence g (Note Stroke)
ktpk = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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)
tSequence 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)
pSequence 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)

sarva_20_02_27 :: Korvai
sarva_20_02_27 :: Korvai
sarva_20_02_27 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
2 Matra
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 -> [Section] -> Korvai
korvai Tala
adi ([Section] -> Korvai) -> [Section] -> Korvai
forall a b. (a -> b) -> a -> b
$
    (Section -> Section) -> [Section] -> [Section]
forall a b. (a -> b) -> [a] -> [b]
map ((Sequence -> Sequence) -> Section -> Section
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
5))
    [ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
6 (Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk)
        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 {g}. Sequence g (Note Stroke)
ySequence -> 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)
ktpkSequence -> 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)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk
        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)
ktokSequence -> 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)
ktok 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)
oSequence -> 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 {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)
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 {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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 sollu. SequenceT sollu
__5Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__5Sequence -> 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
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok
        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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x2 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok)
        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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk 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)
ktokSequence -> 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)
ktpk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
nakatiku)
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk 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)
ktokSequence -> 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)
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
nakatiku
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk 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)
ktokSequence -> 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)
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
nakatiku
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
d_N_ND_N Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok 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 -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall a. Rest a => a
__ (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri (Sequence
forall {g}. Sequence g (Note Stroke)
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o))
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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 sollu. SequenceT sollu
__5Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__5Sequence -> 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
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok 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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok)         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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok) 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 sollu. SequenceT sollu -> SequenceT sollu
tri Sequence
d_n_n 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
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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
3 Sequence
d_n_n 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
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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
k
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
d_n_n 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
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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
k
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall a. Monoid a => Matra -> a -> a
repeat Matra
3 (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)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
kStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
p) 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
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 -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (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)
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 -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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 sollu. SequenceT sollu
__5Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__5Sequence -> 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
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok 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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok) 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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk 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 {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 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)
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)
o
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$  Sequence
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk 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 {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 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)
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)
o
        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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk 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 {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 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)
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)
o
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$  Sequence
d_N_ND_NSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktok 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 a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
takitatatakadinna
        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
forall {g}. Sequence g (Note Stroke)
d_n_nd_nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktpk 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
forall a. Monoid a => a -> a -> a
.Sequence
takitatatakadinna
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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 a. Monoid a => a -> a
r2 Sequence
takitatatakadinnaSequence -> 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
__ -- 8 2 8 2
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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
takitatatakadinnaSequence -> 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)
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)
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 a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o -- (8 3 9) * 2
        -- 2 8 3 999
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
onSequence -> 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
takitatatakadinnaSequence -> 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)
pSequence -> 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)
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 a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o)
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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 sollu. SequenceT sollu
__5 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Matra -> Sequence
forall sollu. Matra -> SequenceT sollu
__M (Matra
5Matra -> Matra -> Matra
forall a. Num a => a -> a -> a
*Matra
2)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__5Sequence -> 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 -> 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)
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)
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)
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
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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)
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 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)
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)
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)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o)
    -- tisram in kandam, effectively 7.5 nadai
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
15 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
stride Matra
2 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ -- 12:24
        let d_ktk :: Sequence
d_ktk = Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (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)
k)
            d_kook :: Sequence
d_kook = 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)
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
        in Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
o Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence -> Sequence
forall a. Monoid a => a -> a
r4 Sequence
d_ktk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
d_kook) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence
forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
d_ktk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
d_kook) 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)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
d_kook)
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence
forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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)
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 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)
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)
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)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o)
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x3 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ 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 -> Sequence -> Sequence -> Sequence
forall sollu.
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tsep (Sequence
forall sollu. SequenceT sollu
p5Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
p5) (Sequence
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__5) (Sequence
forall {g}. Sequence g (Note Stroke)
iSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__5)
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. [Sequence] -> Sequence -> Sequence
forall a. (Semigroup a, Monoid a) => [a] -> a -> a
prefixes [Sequence
forall a. Monoid a => a
ø, Sequence
kp, Sequence
kpnp] (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (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 sollu. SequenceT sollu
p5))
    ]
    where
    takitatatakadinna :: Sequence
takitatatakadinna = Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
group (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
onSequence -> 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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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
    ktok :: Sequence g (Note Stroke)
ktok = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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)
tSequence 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)
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)
k)
    ktpk :: Sequence g (Note Stroke)
ktpk = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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)
tSequence 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)
pSequence 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)
    ktkt :: Sequence g (Note Stroke)
ktkt = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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)
tSequence 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)
t)
    d_n_nd_n :: Sequence g (Note Stroke)
d_n_nd_n = 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)
ySequence 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)
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)
ySequence 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)
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)
ySequence 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)
n
    d_N_ND_N :: Sequence
d_N_ND_N = Sequence
forall {g}. Sequence g (Note Stroke)
d_n_nd_n Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Sequence
ooo
    ooo :: Sequence
ooo    = 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 {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
    d_n_n :: Sequence
d_n_n = 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)
n
    -- make beginning o oo thing cleaner
    -- pull back on namita dimita
    -- isolate okotokot ending to make it cleaner

-- To farans and mohra.
sarva_20_05_08 :: Korvai
sarva_20_05_08 :: Korvai
sarva_20_05_08 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
5 Matra
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
    -- transition to farans
    [ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> 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)
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 -> 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)
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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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
forall sollu. SequenceT sollu
sam Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (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)
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)
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 sollu. SequenceT sollu
sam 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)
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
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)
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)
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 {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 -> 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)
iSequence -> 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)
iSequence -> 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)
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)
vSequence -> 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)
    , let rnaka :: Sequence
rnaka = 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)
uSequence -> 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)
p in
        Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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)
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 -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
rnakaSequence -> 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
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall sollu. SequenceT sollu
sam Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
pkSequence -> 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)
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
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)
            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)
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)
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
pkSequence -> 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)
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)
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
pkSequence -> 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)
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)
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)
iSequence -> 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)
i)
    -- farans
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$
        Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.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
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)
v) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk 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)
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)
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)
v) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall sollu. SequenceT sollu
sam 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)
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)
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)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatikuSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
              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)
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
nakatikuSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall sollu. SequenceT sollu
sam 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)
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)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatikuSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
              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)
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)
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
nakatikuSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (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)
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 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
nakatiku 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)
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 {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)
u
        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)
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 g sollu. Sequence g sollu -> Sequence g sollu
sd (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 {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)
u) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
    -- mohra
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (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)
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
nakatiku 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)
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)
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) 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)
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)
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)
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
nakatiku 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)
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)
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) 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)
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 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 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 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)
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 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 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 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)
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)
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 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
__)
    -- mohra korvai -- 2+4 + 2+3 + 3+3 = 17
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (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)
odSequence -> 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
pkSequence -> 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
__3Sequence -> 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
pkSequence -> 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
__3Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri Sequence
forall sollu. SequenceT sollu
p5
    -- alternates, for practice:
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (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)
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)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri Sequence
forall sollu. SequenceT sollu
p5
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r3 (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)
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)
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)
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 -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall a. Rest a => a
__ Sequence
forall sollu. SequenceT sollu
p6 -- Also 567
    ]

-- n d d n enters gradually
sarva_20_05_29 :: Korvai
sarva_20_05_29 :: Korvai
sarva_20_05_29 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
5 Matra
29 (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
korvaiS Tala
adi
    [ Duration -> Sequence
sarva Duration
7 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
end
      Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall sollu. SequenceT sollu
sam Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
start Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Duration -> Sequence
sarva Duration
2 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
end)
      Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall sollu. SequenceT sollu
sam Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Sequence
start Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
end)
    -- In the recording, he has 2 matra karvai, and lands on eddupu +0.5.
    , Duration -> Sequence
sarva Duration
4 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
endSequence -> 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)
d Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
endSequence -> 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)
d Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
3 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
forall a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
end)
    ]
    where
    sarva :: Duration -> Sequence
sarva = Sequence -> Duration -> Sequence
forall sollu.
Stack =>
SequenceT sollu -> Duration -> SequenceT sollu
sarvaD (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> 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
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on)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)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on Sequence -> 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)
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)
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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
n)
    start :: Sequence
start = Sequence
forall {g}. Sequence g (Note Stroke)
o'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)
oSequence -> 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 {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
on
    end :: Sequence
end = 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
r4 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
forall {g}. Sequence g (Note Stroke)
o'Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
d Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
d

-- TODO starts and ends on arudi
-- sarva laghu before 7s, don't use thom
-- also prepare with some sarvalaghu that does vv_ stuff.
sarva_20_06_05 :: Korvai
sarva_20_06_05 :: Korvai
sarva_20_06_05 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
6 Matra
5 (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
$
    -- 8*7 + 8 = 8 = 4 avartanams
      Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (Sequence
forall {g}. Sequence g (Note Stroke)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
dSequence -> 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
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
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)
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)
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
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (Sequence
forall {g}. Sequence g (Note Stroke)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
onSequence -> 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
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
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 -> 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)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
vSequence -> 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 {g}. Sequence g (Note Stroke)
v))
    Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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 a. Rest a => a
__ Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
onSequence -> 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
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
forall {g}. Sequence g (Note Stroke)
od
                            Sequence -> 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)
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 -> 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)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
vSequence -> 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
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
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
v))
    Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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 a. Rest a => a
__ Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
onSequence -> 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
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
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
su (Sequence
onSequence -> 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
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
forall {g}. Sequence g (Note Stroke)
oktk4)
    Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
o'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
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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
onSequence -> 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
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
forall {g}. Sequence g (Note Stroke)
od Sequence -> 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 a. Rest a => a
__      Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
oktk4)
    Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (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)
o'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 a. Rest a => a
__  Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oktk4)
    Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (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)
o'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 a. Rest a => a
__  Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oktk4)
    Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g7 (Sequence
forall {g}. Sequence g (Note Stroke)
o'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 a. Rest a => a
__       Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oktk4 Sequence -> 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
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)
oktk4) -- TODO slow gumiki
    Sequence -> 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
.Matra -> Sequence
forall sollu. Matra -> SequenceT sollu
__n Matra
6       Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oktk4 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence
forall a. Monoid a => a -> a
r8 (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)
t))) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
forall {g}. Sequence g (Note Stroke)
o' -- 6 + 4 + 8*(3/4)
    where
    oktk4 :: Sequence g (Note Stroke)
oktk4 = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a
r4 (Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o'Sequence 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)
tSequence 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)))
    g7 :: SequenceT sollu -> SequenceT sollu
g7 = Duration -> SequenceT sollu -> SequenceT sollu
forall sollu. Duration -> SequenceT sollu -> SequenceT sollu
checkD (Duration
7Duration -> Duration -> Duration
forall a. Fractional a => a -> a -> a
/Duration
2) (SequenceT sollu -> SequenceT sollu)
-> (SequenceT sollu -> SequenceT sollu)
-> SequenceT sollu
-> SequenceT sollu
forall b c a. (b -> c) -> (a -> b) -> a -> c
• SequenceT sollu -> SequenceT sollu
forall sollu. SequenceT sollu -> SequenceT sollu
group

sarva_20_06_12 :: Korvai
sarva_20_06_12 :: Korvai
sarva_20_06_12 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
6 Matra
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 -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
__D (Duration
3Duration -> Duration -> Duration
forall a. Fractional a => a -> a -> a
/Duration
2) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. 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)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__8 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (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
__)
    , Duration -> Sequence
sarva Duration
6 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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.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)
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 {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)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.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)
k)
    , 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)
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
. Duration -> Sequence
sarva Duration
5 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk 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 {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
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook)
    , Sequence
begin Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Duration -> Sequence
sarva Duration
4 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktpkSequence -> 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)
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 -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook)
    , Sequence
begin Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Duration -> Sequence
sarva Duration
4 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktpkSequence -> 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 -> 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 -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
kook)
    ]
    where
    -- melkalam sarva
    sarva :: Duration -> Sequence
sarva = Sequence -> Duration -> Sequence
forall sollu.
Stack =>
SequenceT sollu -> Duration -> SequenceT sollu
sarvaD (Sequence -> Duration -> Sequence)
-> Sequence -> Duration -> Sequence
forall a b. (a -> b) -> a -> b
$
        (Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
inter Sequence
forall {g}. Sequence g (Note Stroke)
l (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)
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
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 -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
inter Sequence
forall {g}. Sequence g (Note Stroke)
l (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)) Stack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
& Stack => String -> Sequence
String -> Sequence
strM String
"o_o_o_o_ooo_o_o"
        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 -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
inter Sequence
forall {g}. Sequence g (Note Stroke)
l (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)
dSequence -> 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)
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
forall {g}. Sequence g (Note Stroke)
l
    begin :: Sequence
begin = 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)
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)
oSequence -> 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
onSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
l

sarva_20_06_12_reduction :: Korvai
sarva_20_06_12_reduction :: Korvai
sarva_20_06_12_reduction = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
6 Matra
12 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Duration -> Sequence
forall sollu.
Stack =>
SequenceT sollu -> Duration -> SequenceT sollu
sarvaD Sequence
forall a. Monoid a => a
mempty Duration
12
    , Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri (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
__3))) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri (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
__3))
        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 sollu. SequenceT sollu
__3) Sequence
kookSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
k
    ]

sarva_20_06_19_endings :: Korvai
sarva_20_06_19_endings :: Korvai
sarva_20_06_19_endings = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
6 Matra
19 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
1.5 Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. 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)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__4Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Duration -> Sequence
forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
1
    -- [ __D 1.5 .__.__.__ . n.__.n.d.n.d.d
            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)
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)
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 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 {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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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)
pStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&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)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
v
              -- recording: 5:26.68
    , Duration -> Sequence
forall {sollu}. Duration -> SequenceT sollu
sarva Duration
6 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 -> 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)
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
forall {g}. Sequence g (Note Stroke)
oSequence -> 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 {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)
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 {g}. Sequence g (Note Stroke)
k)
    , Duration -> Sequence
forall {sollu}. Duration -> SequenceT sollu
sarva Duration
6 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)
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)
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)
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)
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)
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)
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)
k)
    ]
    where
    sarva :: Duration -> SequenceT sollu
sarva = SequenceT sollu -> Duration -> SequenceT sollu
forall sollu.
Stack =>
SequenceT sollu -> Duration -> SequenceT sollu
sarvaD SequenceT sollu
forall a. Monoid a => a
mempty

sarva_20_06_19 :: Korvai
sarva_20_06_19 :: Korvai
sarva_20_06_19 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
6 Matra
19 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    -- 222 333 444
    [ Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall a. Rest a => a
__ (Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> 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 -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ 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)
pkSequence -> 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 -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ 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)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
od)
    -- 234 234 234
    , Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
tri (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence -> Sequence -> Sequence -> Sequence
forall sollu.
SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
trin Sequence
forall a. Rest a => a
__ (Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.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)
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.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)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
od)

    , Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall a. Rest a => a
__ Sequence
forall {g}. Sequence g (Note Stroke)
pknpv Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ 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)
pknpv) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ 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)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
pknpv)
    , Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall a. Rest a => a
__ Sequence
ktpko Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
forall a. Rest a => a
__ (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktpko) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ 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)
kSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktpko)
    ]
    where
    pknpv :: Sequence g (Note Stroke)
pknpv = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence 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)
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)
p))Sequence 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)
v
    ktpko :: Sequence
ktpko = Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o
    pk :: Sequence g (Note Stroke)
pk = Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence 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)

sarva_20_06_19_reduce5 :: Korvai
sarva_20_06_19_reduce5 :: Korvai
sarva_20_06_19_reduce5 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
6 Matra
19 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    -- 5 + 5/2 + 5/2/2 + 5/2/2/2 * 2 =
    -- 5 + 5/2 + 5/2/2 + 5/2/2 =
    -- 5 + 5/2 + 5/2 =
    -- 10 * 3 = 30
    [ 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
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ 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 -> Sequence
forall a. Monoid a => a -> a
r3 (
          Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence
forall {g}. Sequence g (Note Stroke)
kSequence -> 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)
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 -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (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 sollu. SequenceT sollu
__3Sequence -> 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 -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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 sollu. SequenceT sollu
__3Sequence -> 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 -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (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)
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
ktkno))))
        )
    ]

e_20_07_03 :: Korvai
e_20_07_03 :: Korvai
e_20_07_03 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
7 Matra
3 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
prefix Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r7 (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)
v) 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 {g}. Sequence g (Note Stroke)
k
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
prefix Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r6 (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)
v) 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)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
v)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)
k
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
prefix Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (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)
v) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r7 (Sequence
forall {g}. Sequence g (Note Stroke)
oSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
Sequence -> Sequence -> Sequence
&Sequence
forall {g}. Sequence g (Note Stroke)
v)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)
k
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
prefix Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (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)
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
pknpv)
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
prefix Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (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
pknpv) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 Sequence
pknpv
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence
prefix Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r8 Sequence
pknpv
    ]
    where
    pknpv :: Sequence
pknpv = 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)
nSequence -> 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
forall {g}. Sequence g (Note Stroke)
vSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__
    prefix :: Sequence
prefix = 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
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku 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)
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
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku

e_20_07_17 :: Korvai
e_20_07_17 :: Korvai
e_20_07_17 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
7 Matra
17 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ 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
korvaiS Tala
adi
    [ 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)
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
ktSequence -> 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
nakatiku Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
theme
    , 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)
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
ktSequence -> 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
nakatiku Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
theme2
    , Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
5 (Sequence -> Sequence) -> Sequence -> Sequence
forall a b. (a -> b) -> a -> b
$ Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (Duration -> Sequence -> Sequence
forall sollu.
(Stack, Pretty sollu) =>
Duration -> SequenceT sollu -> SequenceT sollu
takeD Duration
5 Sequence
theme)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r5 (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 -> Sequence
forall a. Monoid a => a -> a
r3 (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)
o) 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 a. Rest a => a
__
    ]
    where
    theme :: Sequence
theme = 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)
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)
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)
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)
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)
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)
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)
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)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__
    theme2 :: Sequence
theme2 = 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)
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 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
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)
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)
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 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
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 a. Rest a => a
__Sequence -> 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)
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)
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)
dSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__

thani_exercise :: Korvai
thani_exercise :: Korvai
thani_exercise = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
7 Matra
3 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi
    [ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
forall a b. (a -> b) -> a -> b
$ 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 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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)) 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 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 -> 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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)) 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
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 -> 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 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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)) 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 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 -> 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 -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
nakatiku
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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
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
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 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
ktpk) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku
        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 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
nakatiku) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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)
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)
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 a. Rest a => a
__Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku
        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)
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)
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 a. Rest a => a
__) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
ktktSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
    , Section -> Section
forall sollu. Section sollu -> Section sollu
x2 (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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
pk 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)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku
        Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence
forall {g}. Sequence g (Note Stroke)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk)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
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
pk) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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)
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
ktpkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)
        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)
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
nakatiku
        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 {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r5 (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
kt)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku
        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 {g}. Sequence g (Note Stroke)
k Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall a. Monoid a => a -> a
r4 (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
kt)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
pk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence
nakatiku
    , Sequence -> Section
forall a. a -> Section a
s (Sequence -> Section) -> Sequence -> Section
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 -> Sequence
forall a. Monoid a => a -> a
r2 (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
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)
        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 sollu. SequenceT sollu
__4) Sequence
nakatiku
    , Text -> Section -> Section
forall sollu. Text -> Section sollu -> Section sollu
commentS Text
"mohra" (Section -> Section) -> Section -> Section
forall a b. (a -> b) -> a -> b
$ Sequence -> Section
forall a. a -> Section a
s Sequence
forall a. Monoid a => a
mempty
    ]

e_20_11_01_npk :: Korvai
e_20_11_01_npk :: Korvai
e_20_11_01_npk = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
11 Matra
1 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$
    Text -> Korvai -> Korvai
comment Text
"once in chatusram, then in tisram" (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$
    Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ Sequence -> Sequence
pat (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__6)
    , Sequence -> Sequence
pat (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
pk))
    , Sequence -> Sequence
pat (Sequence
forall {g}. Sequence g (Note Stroke)
odSequence -> 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)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall sollu. SequenceT sollu
__3)
    , Sequence -> Sequence
pat (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)
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)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
    , Sequence -> Sequence
pat (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)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
    , Sequence -> Sequence
pat (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)
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
pat (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)
odSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall a. Rest a => a
__)
    ]
    where
    pat :: Sequence -> Sequence
pat Sequence
karvai = Matra -> Sequence -> Sequence
forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 (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
r4 Sequence
npk Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
karvai Sequence
npk
    npk :: Sequence
npk = Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pkSequence -> 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)
tSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
pk))

sketch_20_11_08 :: Korvai
sketch_20_11_08 :: Korvai
sketch_20_11_08 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
11 Matra
8 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (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)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktokSequence -> 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
forall {g}. Sequence g (Note Stroke)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktokSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
forall {g}. Sequence g (Note Stroke)
o)
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (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)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktokSequence -> 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)
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)
uSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
ktokSequence -> 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
ktok))
    , Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (Sequence -> Sequence
forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence
forall {g}. Sequence g (Note Stroke)
nSequence -> 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
ktokSequence -> 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)
nSequence -> 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
ktokSequence -> 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
ktokSequence -> 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
ktok))
    ]
    where
    ktok :: Sequence
ktok = 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)

e_20_12_06 :: Korvai
e_20_12_06 :: Korvai
e_20_12_06 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2020 Matra
12 Matra
6 (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
$ Korvai -> Korvai
exercise (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
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
pkSequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
.Sequence
nakatiku) Sequence -> Sequence -> Sequence
forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence -> Sequence
forall a. Monoid a => a -> a
r2 (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)
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
ktpk))