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

import           Solkattu.Dsl.Mridangam


e_n_dd_dd :: Korvai
e_n_dd_dd :: Korvai
e_n_dd_dd = Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2022 Int
2 Int
6 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall a. Monoid a => a -> a
r2 Sequence
"N.dD.dD."   forall a. Monoid a => a -> a -> a
. Sequence
"N.dd.dd. n.dD.dD."
    , Sequence
"N.dD.dD. dN.D.dD. N.dd.dd. n.dD.dD."
    , Sequence
"N.dD.dD. dN.D.dD. N.dd.dd. dn.D.dD."
    , forall a. Monoid a => a -> a
r2 Sequence
"dN.D.dD."   forall a. Monoid a => a -> a -> a
. Sequence
"dn.d.dd. dn.D.dD."
    , Sequence
"on.D.dD. dN.D.dD." forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 Sequence
"dN.D."forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
d
      forall a. Monoid a => a -> a -> a
. Sequence
"on.d.dd. dn.d.dd." forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 Sequence
"dn.d."forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
d
    , Sequence
"on.D." forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 Sequence
"dN.D."forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
d forall a. Monoid a => a -> a -> a
. Sequence
"on.d." forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 Sequence
"dn.d."forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
d
    , forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.D.dN." forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"pn.d.dn."
    , forall a. Monoid a => a -> a
r4 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.D.d" forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"pn.d.d") forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.d" forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"pn.d")
    ]

e_n_dd_dd3 :: Korvai
e_n_dd_dd3 :: Korvai
e_n_dd_dd3 = Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2022 Int
2 Int
6 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi forall a b. (a -> b) -> a -> b
$ forall a b. (a -> b) -> [a] -> [b]
map (forall g sollu. Int -> Sequence g sollu -> Sequence g sollu
nadai Int
6)
    [ forall a. Monoid a => a -> a
r3 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"N.dD.dD.")   forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
o Stack => Sequence -> Sequence -> Sequence
& (forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"n.dd.dd.")) forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"n.dD.dD."
    , forall {g}. Sequence g (Note (Stroke Stroke))
o Stack => Sequence -> Sequence -> Sequence
& (forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"n.dD.dD.")) forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"dN.D.dD." forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"n.dd.dd.") forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"n.dD.dD."
    , forall a. Monoid a => a -> a
r3 forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"N.dD.dD." forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"dN.D.dD."
    , forall a. Monoid a => a -> a
r3 forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.D.dD." forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"dn.d.dd."
    -- TODO middle one without thom
    , forall a. Monoid a => a -> a
r3 forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.D.dD." forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"dN.D.dD." forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"dN.D.")forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
d
    , forall a. Monoid a => a -> a
r3 forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.D." forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"dN.D.")forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
d forall a. Monoid a => a -> a -> a
. (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.d.") forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"dn.d.")forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
d
    , forall a. Monoid a => a -> a
r3 forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.d.dN." forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"pn.d.dn."
    , forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.d.d" forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"pn.d.d") forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"on.d" forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"pn.d")
    ]

c_22_02_20 :: Korvai
c_22_02_20 :: Korvai
c_22_02_20 = Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2022 Int
2 Int
20 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
4 forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
. Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"N__k__D"
    , forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
4 forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
uforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3 forall a. Monoid a => a -> a -> a
. Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"N_k_D"
    , forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
5 forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"NkD"
    , forall sollu. Stack => Duration -> SequenceT sollu
sarvaD_ Duration
5 forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"N__k__D_" forall a. Monoid a => a -> a -> a
. Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"N_k_D_" forall a. Monoid a => a -> a -> a
. Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"NkD"
    , Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"NkD__"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su forall sollu. SequenceT sollu
p6 forall a. Monoid a => a -> a -> a
. Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"N_k_D__"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall sollu. SequenceT sollu
p6forall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
p6) forall a. Monoid a => a -> a -> a
. Sequence
nd3forall a. Monoid a => a -> a -> a
.Sequence
"N__k__D__"
        forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r3 forall sollu. SequenceT sollu
p6)forall a. Monoid a => a -> a -> a
.Sequence
"N_k_D__" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r3 forall sollu. SequenceT sollu
p6)forall a. Monoid a => a -> a -> a
.Sequence
"NkD__" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r3 forall sollu. SequenceT sollu
p6)
    ]
    where
    nd3 :: Sequence
nd3 = forall a. Monoid a => a -> a
r3 Sequence
nd
    nd :: Sequence
nd = forall sollu. SequenceT sollu -> SequenceT sollu
g forall a b. (a -> b) -> a -> b
$ Sequence
onforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktok)forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
od

c_22_03_02 :: Korvai
c_22_03_02 :: Korvai
c_22_03_02 = Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2022 Int
3 Int
2 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ Sequence
"NNkD__NkNNkD__nknnkd__nknnkd" forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
uforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktok
    , Sequence
"NNkD__NkNNkD__nknnkd_knd_knd__k_"
    , Sequence -> Sequence
make Sequence
"kktkkooko"
    , Sequence -> Sequence
make (forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
"ktknpktk"forall a. Monoid a => a -> a -> a
.Sequence
nakatiku) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
o)
    , Sequence -> Sequence
make (forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r2 Sequence
"Nkpknook") forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
o)
    ]
    where
    make :: Sequence -> Sequence
make Sequence
p9 = forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su forall sollu. SequenceT sollu
p6) (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
p9 forall a. Monoid a => a -> a -> a
. Sequence
"NkD__")
        forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su forall sollu. SequenceT sollu
p6forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
uforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
kpforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
p6)forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
uforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
kpnpforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
p6)

x_22_07_09 :: Korvai
x_22_07_09 :: Korvai
x_22_07_09 = Korvai -> Korvai
elaforge forall a b. (a -> b) -> a -> b
$ Text -> Korvai -> Korvai
comment Text
"solo from dream" forall a b. (a -> b) -> a -> b
$ Tala -> Sequence -> Korvai
korvaiS1 Tala
adi forall a b. (a -> b) -> a -> b
$
    -- From dream where I was singing with a large group.  Later switched
    -- to mridangam but couldn't get a comfortable seat.  Famous player was
    -- next to me.  After that a dream where I was doing something like this
    -- solo.
    -- all closed strokes, in this style but stretched out longer
    -- K is hv, or rather preceding strokes are lt
    Sequence
"kktkkpkpkk" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktkpkpktk" forall a. Monoid a => a -> a -> a
. Sequence
"p_"forall a. Monoid a => a -> a -> a
.Sequence
"tkkpkkpkp" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"ktkpktkp" forall a. Monoid a => a -> a -> a
.Sequence
"k_"
    forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktkpktkpktkpkpktkpkpktk"forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
pforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pkK_pkK_pktkpkpktk"forall a. Monoid a => a -> a -> a
.Sequence
"p_"
    forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pkK_pkpkK__kpkpkK_" forall a. Monoid a => a -> a -> a
. Sequence
"_"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
suSequence
"_k"
    -- TODO fix this up so it lines up better
    forall a. Monoid a => a -> a -> a
. Sequence
"Kkkkkktkkpkpkkpp"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktpkpktk"forall a. Monoid a => a -> a -> a
.Sequence
"p_kk"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktpkpktk"forall a. Monoid a => a -> a -> a
.Sequence
"p__kkk"
    forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pkpktpktkpktkp"forall a. Monoid a => a -> a -> a
.Sequence
"___"forall a. Monoid a => a -> a -> a
.Sequence
plakforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktkpktk"forall a. Monoid a => a -> a -> a
.Sequence
"p___"forall a. Monoid a => a -> a -> a
.Sequence
plakforall a. Monoid a => a -> a -> a
.Sequence
plakforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
    forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktkpkpktkpkpktk"forall a. Monoid a => a -> a -> a
.Sequence
"p__"
    forall a. Monoid a => a -> a -> a
. forall stroke.
SequenceT (Stroke stroke) -> SequenceT (Stroke stroke)
lt (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktkpktkpktkpktk"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r6 Sequence
"pkt")forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
pforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)forall a. Monoid a => a -> a -> a
.Sequence
plak forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r5 Sequence
"pkt"forall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)forall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
    forall a. Monoid a => a -> a -> a
. Sequence
plakforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
plak (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pktpkt__") forall a. Monoid a => a -> a -> a
. Sequence
"__________"
    -- after a long while do nam
    forall a. Monoid a => a -> a -> a
. forall stroke.
SequenceT (Stroke stroke) -> SequenceT (Stroke stroke)
hv forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
pkforall a. Monoid a => a -> a -> a
.Sequence
"pkpkkppkpkkp"forall a. Monoid a => a -> a -> a
.Sequence
"NN"forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
pkforall a. Monoid a => a -> a -> a
.Sequence
"pkpkkppkkpk"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
pkforall a. Monoid a => a -> a -> a
.Sequence
"pk"
    forall a. Monoid a => a -> a -> a
. forall stroke.
SequenceT (Stroke stroke) -> SequenceT (Stroke stroke)
hv forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
pkforall a. Monoid a => a -> a -> a
.Sequence
"pkpkkppkpkkp"forall a. Monoid a => a -> a -> a
.Sequence
"NN"forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
pkforall a. Monoid a => a -> a -> a
.Sequence
"pkkp"forall a. Monoid a => a -> a -> a
.Sequence
"NN"forall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
"kkp_kkp"
    -- etc.
    where
    -- but tha with fingers in the middle
    plak :: Sequence
plak = forall stroke.
SequenceT (Stroke stroke) -> SequenceT (Stroke stroke)
hv (forall {g}. Sequence g (Note (Stroke Stroke))
pStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note (Stroke Stroke))
k)

s_22_09_25 :: Korvai
s_22_09_25 :: Korvai
s_22_09_25 = Korvai -> Korvai
sollu forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS (Int -> Tala
beats Int
2) forall a b. (a -> b) -> a -> b
$ forall a b. (a -> b) -> [a] -> [b]
map forall g sollu. Sequence g sollu -> Sequence g sollu
su
    [ Sequence
"ktokou_kokokou_k"
    , Sequence
"okou_kokou_kou_k"
    , Sequence
"npk_u_pk"forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
    , Sequence
"____u_pk"forall a. Monoid a => a -> a -> a
.Sequence
nakatiku
    , Sequence
"kookD_kookD_kook"
    , forall a. Monoid a => a -> a
r2 Sequence
"o_knookn"
    , Sequence
"___kpktknkoN_N_k"
    , Sequence
"oo_"forall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D_" Sequence
"N_k"
    , Sequence
"ktokn_o_ktoknook"
    , Sequence
"ktokotokotokotok"
    ]

e_22_10_16 :: Korvai
e_22_10_16 :: Korvai
e_22_10_16 = Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2022 Int
10 Int
16 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r2 Sequence
"nddd" Stack => Sequence -> Sequence -> Sequence
& Sequence
"oooo_oo_" forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 Sequence
"nddd" Stack => Sequence -> Sequence -> Sequence
& Sequence
"___o_oo"
    , forall a. Monoid a => a -> a
r4 Sequence
"n,nd" Stack => Sequence -> Sequence -> Sequence
& Sequence
"o_oo_oo" forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 Sequence
"n,nd" Stack => Sequence -> Sequence -> Sequence
& Sequence
"o_oo_oo"
        forall a. Monoid a => a -> a -> a
. Sequence
"pku"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
"pk"forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)
    ]

t_endaro_ending :: Korvai
t_endaro_ending :: Korvai
t_endaro_ending =
    -- From pancaratnam house concert.
    Stack => Text -> String -> Korvai -> Korvai
recording Text
"Endaro Mahanubhavulu 2017-01-16.mp3" String
"13:43" forall a b. (a -> b) -> a -> b
$
    Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2017 Int
1 Int
16 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
3 forall a. Monoid a => a -> a -> a
. Sequence
"__" forall a. Monoid a => a -> a -> a
. Sequence
"noD"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"_k"forall a. Monoid a => a -> a -> a
.Sequence
"od"
    forall a. Monoid a => a -> a -> a
. Sequence
"pkd"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknpk_u_pk"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
nakatikuforall a. Monoid a => a -> a -> a
.Sequence
"ooou"
    forall a. Monoid a => a -> a -> a
. Sequence
"pkd"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknpk_u_pk"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
nakatikuforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
nakatiku
    forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r2 (forall a. Monoid a => a -> a
r2 (Sequence
"N_pk"forall a. Monoid a => a -> a -> a
.Sequence
nakatiku)forall a. Monoid a => a -> a -> a
.Sequence
nakatiku) forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r4 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"N_ktok"))
                                                -- . "oktk ok oktk oko")
    ]

akash_sarva :: Korvai
akash_sarva :: Korvai
akash_sarva = Stack => Int -> Int -> Int -> Korvai -> Korvai
date Int
2023 Int
2 Int
5 forall a b. (a -> b) -> a -> b
$ Text -> Korvai -> Korvai
source Text
"akash" forall a b. (a -> b) -> a -> b
$ Tala -> Sequence -> Korvai
korvaiS1 Tala
adi forall a b. (a -> b) -> a -> b
$
    forall a. Monoid a => a -> a
r2 Sequence
"D,p,n,d,^,d,d,^,"
    -- dhinna gina taka dhinna
    -- gina dhinna dhinna gina
    -- tinna gina taka tinna
    -- gina dhinna dhinna gina