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

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

import qualified Solkattu.Tala as Tala

import           Solkattu.Dsl.Mridangam


tir_short_adi :: Korvai
tir_short_adi :: Korvai
tir_short_adi = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
1 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note (Stroke Stroke))
pStack => Sequence -> Sequence -> Sequence
&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}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
o) (Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
pStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note (Stroke Stroke))
u
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note (Stroke Stroke))
uforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__4) (forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3)) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
u
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
tri (forall {g}. Sequence g (Note (Stroke Stroke))
odforall 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
su2 (forall {g}. Sequence g (Note (Stroke Stroke))
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
p)forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
od
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
7 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
k) (forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
pforall a. Monoid a => a -> a -> a
.Sequence
ktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
pforall 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}. Sequence g (Note (Stroke Stroke))
tforall a. Monoid a => a -> a -> a
.Sequence
ktforall 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))
k)forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
k) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
od
    ]

tir_long_adi :: Korvai
tir_long_adi :: Korvai
tir_long_adi = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    -- 1:08:07
    [ let p8 :: Sequence
p8 = forall sollu. SequenceT sollu -> SequenceT sollu
group (forall b a. Monoid b => (a -> b) -> [a] -> b
mconcatMap (forall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) [Sequence
kt, forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
n, forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
o, forall {g}. Sequence g (Note (Stroke Stroke))
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
k])
        in forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4.5 forall a. Monoid a => a -> a -> a
. Sequence
p8 forall a. Monoid a => a -> a -> a
. (forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
o) forall a. Monoid a => a -> a -> a
. Sequence
p8 forall a. Monoid a => a -> a -> a
. (forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
o'Stack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note (Stroke Stroke))
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
k)
            forall a. Monoid a => a -> a -> a
. (forall sollu. SequenceT sollu -> SequenceT sollu
group (forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall g sollu. Stride -> Sequence g sollu -> Sequence g sollu
stride Stride
3 (forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
k))))
        forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note (Stroke Stroke))
od
    ]

-- sam to sam
tir_sam_adi_kirkalam :: Korvai
tir_sam_adi_kirkalam :: Korvai
tir_sam_adi_kirkalam = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2022 Stride
4 Stride
23 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D__k" Sequence
"kookokk_"
    ]

tir_long_rupaka :: Korvai
tir_long_rupaka :: Korvai
tir_long_rupaka = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
Tala.rupaka_fast
    -- 20:06
    [ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
k) (forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
pforall a. Monoid a => a -> a -> a
.Sequence
ktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
pforall 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}. Sequence g (Note (Stroke Stroke))
tforall a. Monoid a => a -> a -> a
.Sequence
ktforall 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))
k)forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
k)
    ]

-- https://www.youtube.com/watch?v=lSVqfzQBkMs
tir_mysore_vidiraj22 :: Korvai
tir_mysore_vidiraj22 :: Korvai
tir_mysore_vidiraj22 = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2023 Stride
1 Stride
6 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    -- 15
    [ forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D_o" Sequence
"NNk")
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall 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_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"D_ktpk") Sequence
"NNk"
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 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 (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note (Stroke Stroke))
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note (Stroke Stroke))
vforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
ktok) (forall a. Monoid a => a -> a
r2 (forall {g}. Sequence g (Note (Stroke Stroke))
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note (Stroke Stroke))
vforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
o)))
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall 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
"v_o" (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"okokk_")
    -- 16
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D_" (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"t_o_ktok")
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D_" (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"k_oD_N_k")
    -- 24
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D_o" Sequence
"NNkNNk"
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"D_ktok") (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"N_N_pkN_N_pk")
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"D_ktok") (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"ookD_kD_D_k_") -- (su "ookD_kookD_k")
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"D_ktok") (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"npkD_kD_D_k_") -- (su "npknpknpknpk")
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"D_ktok") (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"NkoD_kD_D_k_")
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note (Stroke Stroke))
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note (Stroke Stroke))
vforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note (Stroke Stroke))
o) (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"ktkto_ktkto_")

    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"D_pkno") Sequence
"DDkDDk"
    -- 32
    , let kook :: Sequence
kook = forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"kook" in
        Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
"D_kD_" forall a. Monoid a => a -> a -> a
. Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
"D_kD_k_D_" forall a. Monoid a => a -> a -> a
. Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
"D_kD_k_D_k__"

    ]

tir_itunes :: Korvai
tir_itunes :: Korvai
tir_itunes = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2023 Stride
3 Stride
10 forall a b. (a -> b) -> a -> b
$ Text -> Korvai -> Korvai
source Text
"Mannargudi Easwaran" forall a b. (a -> b) -> a -> b
$
    Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
7 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D__" (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"kook"))
        -- TODO more elegant way to put in the extra k?
        forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"kook" forall a. Monoid a => a -> a -> a
. Sequence
"D__" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"kook" forall a. Monoid a => a -> a -> a
. Sequence
"D_k" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"kook"
    ]

tir_sivamani :: Korvai
tir_sivamani :: Korvai
tir_sivamani = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2023 Stride
1 Stride
20 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"v_pkno") Sequence
"DD_NN_" -- another 63636
    ]

tir_icarnatic_guhan_kamalakiran :: Korvai
tir_icarnatic_guhan_kamalakiran :: Korvai
tir_icarnatic_guhan_kamalakiran =
    Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2023 Stride
3 Stride
10 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
Tala.rupaka_fast
    -- at 26:00
    [ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D_o" (forall sollu. SequenceT sollu -> SequenceT sollu
g forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"ktpkpktp ktpkpk" forall a. Monoid a => a -> a -> a
. Sequence
"DDk")
    -- alternate fingering
    , forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"D_o" (forall sollu. SequenceT sollu -> SequenceT sollu
g forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"ktpktpkp tpktpk" forall a. Monoid a => a -> a -> a
. Sequence
"DDk")
    ]

tir_icarnatic_guhan_kamalakiran_adi :: Korvai
tir_icarnatic_guhan_kamalakiran_adi :: Korvai
tir_icarnatic_guhan_kamalakiran_adi = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2023 Stride
3 Stride
10 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    -- at 1:08:07
    [ forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall sollu.
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri2g Sequence
"D__NNk" Sequence
"kt_kn_ko_ok_" (forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall g sollu. Stride -> Sequence g sollu -> Sequence g sollu
stride Stride
3 Sequence
"ktknkook"))
    -- trikalam version at 1:10:30
    ]

tir_indian_raga :: Korvai
tir_indian_raga :: Korvai
tir_indian_raga = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2023 Stride
3 Stride
10 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    -- Mayamma - Ahiri's Bliss
    [ forall a. Rest a => a
__forall 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
"ko_" Sequence
"D/oD/oD__" -- 333(3)
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note (Stroke Stroke))
odforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__6) Sequence
"okokkoD__Nok" -- 66(6)
    ]

tir_misc :: Korvai
tir_misc :: Korvai
tir_misc = Korvai -> Korvai
tirmanam forall a b. (a -> b) -> a -> b
$ Stack => Stride -> Stride -> Stride -> Korvai -> Korvai
date Stride
2023 Stride
3 Stride
10 forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
4 forall a. Monoid a => a -> a -> a
. forall sollu.
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri2 Sequence
"Dk" (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"tkooktok") (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pu_knook")
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
3 forall a. Monoid a => a -> a -> a
. let seq :: Sequence
seq = forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pu_knook" in Sequence
seq forall a. Monoid a => a -> a -> a
. Sequence
"D__k"forall a. Monoid a => a -> a -> a
.Sequence
seqforall a. Monoid a => a -> a -> a
.Sequence
"D_kk"forall a. Monoid a => a -> a -> a
.Sequence
seq
    -- from facebook Shiva Ramesh, lalgudi tillana
    , forall sollu. Stack => Duration -> SequenceT sollu
__D Duration
2 forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri123 Sequence
"D__" (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"N_ktok")
    ]