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

-- | Sarvalaghu.
module Solkattu.Score.MridangamSarva where
import Prelude hiding ((.), repeat)

import qualified Solkattu.Tala as Tala

import Global
import Solkattu.Dsl.Mridangam


-- * kirkalam

-- TODO these don't need to be a full avartanam, only a binary factor of it

kir1 :: Korvai
kir1 :: Korvai
kir1 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence Group (Note Stroke)] -> Korvai
korvaiS Tala
adi ([Sequence Group (Note Stroke)] -> Korvai)
-> [Sequence Group (Note Stroke)] -> Korvai
forall a b. (a -> b) -> a -> b
$
    [ Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
lSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
d) Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__) -- takadimi takajonu
    ]

kir2 :: Korvai
kir2 :: Korvai
kir2 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence Group (Note Stroke)] -> Korvai
korvaiS Tala
adi ([Sequence Group (Note Stroke)] -> Korvai)
-> [Sequence Group (Note Stroke)] -> Korvai
forall a b. (a -> b) -> a -> b
$
    Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 Sequence Group (Note Stroke)
sarva Sequence Group (Note Stroke)
-> [Sequence Group (Note Stroke)] -> [Sequence Group (Note Stroke)]
forall a. a -> [a] -> [a]
: ((Sequence Group (Note Stroke), Sequence Group (Note Stroke))
 -> Sequence Group (Note Stroke))
-> [(Sequence Group (Note Stroke), Sequence Group (Note Stroke))]
-> [Sequence Group (Note Stroke)]
forall a b. (a -> b) -> [a] -> [b]
map (Sequence Group (Note Stroke), Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke)
pattern [(Sequence Group (Note Stroke), Sequence Group (Note Stroke))]
prefixes
    where
    pattern :: (Sequence Group (Note Stroke), Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke)
pattern (Sequence Group (Note Stroke)
prefix, Sequence Group (Note Stroke)
end) =
        (Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
sarva) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` Sequence Group (Note Stroke)
end
    -- takatadin or nakanadin
    sarva :: Sequence Group (Note Stroke)
sarva = Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
d) Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. (Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
d) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
d)
    prefixes :: [(Sequence Group (Note Stroke), Sequence Group (Note Stroke))]
prefixes = ((Sequence Group (Note Stroke), Sequence Group (Note Stroke))
 -> (Sequence Group (Note Stroke), Sequence Group (Note Stroke)))
-> [(Sequence Group (Note Stroke), Sequence Group (Note Stroke))]
-> [(Sequence Group (Note Stroke), Sequence Group (Note Stroke))]
forall a b. (a -> b) -> [a] -> [b]
map ((Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> (Sequence Group (Note Stroke), Sequence Group (Note Stroke))
-> (Sequence Group (Note Stroke), Sequence Group (Note Stroke))
forall (p :: * -> * -> *) a b c d.
Bifunctor p =>
(a -> b) -> (c -> d) -> p a c -> p b d
bimap Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su)
        [ (Sequence Group (Note Stroke)
takadinna, Sequence Group (Note Stroke)
takadinna Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
3 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k))
        , (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
n Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k, Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
n))
        , (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
t Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k, Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
t))
        , (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k, Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k))
        , (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
uSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k, Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
uSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k))
        , (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna_kitataka, Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna_kitataka Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna_kitataka)
        , let nknk :: Sequence Group (Note Stroke)
nknk = Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oStack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
&Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
jSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
ySequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oStack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
&Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
jSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
y
            in (Sequence Group (Note Stroke)
nknk, Sequence Group (Note Stroke)
nknkSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
nknkSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
nknk)
        ]
    dinna_kitataka :: Sequence g (Note Stroke)
dinna_kitataka = 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)
n Sequence 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
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)

kir3 :: Korvai
kir3 :: Korvai
kir3 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$ Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$
    Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
n) Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o)
    Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
n) Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Int -> Sequence Group (Note Stroke)
forall sollu. Int -> SequenceT sollu
__n Int
8)
    -- can end with faran: oonnpktk naka

kir4 :: Korvai
kir4 :: Korvai
kir4 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
      Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall sollu. SequenceT sollu
__5Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall sollu. SequenceT sollu
__2Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o
    Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall sollu. SequenceT sollu
__5Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall sollu. SequenceT sollu
__2Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o

kir5 :: Korvai
kir5 :: Korvai
kir5 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
      Sequence Group (Note Stroke)
nknd Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
nknd Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& (Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__)
    Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
nknd Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Int -> Sequence Group (Note Stroke)
forall sollu. Int -> SequenceT sollu
__n Int
8)            Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
nknd
    where
    nknd :: Sequence Group (Note Stroke)
nknd = Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__

-- * melkalam

mel1 :: Korvai
mel1 :: Korvai
mel1 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
    Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence Group (Note Stroke)
pkSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o)Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
on Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence Group (Note Stroke)
pk
    -- ta din ta din takadin ta din

mel2 :: Korvai
mel2 :: Korvai
mel2 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$
    Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
3 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
yjyjSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall stroke.
SequenceT (Stroke stroke) -> SequenceT (Stroke stroke)
lt Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k)
    where yjyj :: Sequence g (Note Stroke)
yjyj = 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)
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)
j

-- reduce with kir2 and kir5

dinna_kitataka :: Korvai
dinna_kitataka :: Korvai
dinna_kitataka = Korvai -> Korvai
exercise (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence Group (Note Stroke)] -> Korvai
korvaiS Tala
adi ([Sequence Group (Note Stroke)] -> Korvai)
-> [Sequence Group (Note Stroke)] -> Korvai
forall a b. (a -> b) -> a -> b
$
    (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> [Sequence Group (Note Stroke)] -> [Sequence Group (Note Stroke)]
forall a b. (a -> b) -> [a] -> [b]
map (Tala
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
Tala -> SequenceT sollu -> SequenceT sollu
sarvaSam Tala
adi) [Sequence Group (Note Stroke)]
patterns
    where
    patterns :: [Sequence Group (Note Stroke)]
patterns = (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> [Sequence Group (Note Stroke)] -> [Sequence Group (Note Stroke)]
forall a b. (a -> b) -> [a] -> [b]
map Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su
        [ Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna
        , Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna)Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna
        , Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna
        , Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kttk) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna
        , Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k) Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dinna
        ]
    kttk :: Sequence g (Note Stroke)
kttk = 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)
    dinna :: Sequence g (Note Stroke)
dinna = 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)
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)
kttk

farans :: Korvai
farans :: Korvai
farans = Korvai -> Korvai
sudhindra (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
faran (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence Group (Note Stroke)] -> Korvai
korvaiS Tala
adi ([Sequence Group (Note Stroke)] -> Korvai)
-> [Sequence Group (Note Stroke)] -> Korvai
forall a b. (a -> b) -> a -> b
$
    [ Sequence Group (Note Stroke)
long Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
long
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
4 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
t) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
long
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
t Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
long
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
t Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
long
    ]
    where
    long :: Sequence Group (Note Stroke)
long = Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
oSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
nakatiku


-- * ganesh

kir6 :: Korvai
kir6 :: Korvai
kir6 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2017 Int
8 Int
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 Group (Note Stroke)] -> Korvai
korvaiS Tala
adi ([Sequence Group (Note Stroke)] -> Korvai)
-> [Sequence Group (Note Stroke)] -> Korvai
forall a b. (a -> b) -> a -> b
$
    [ Sequence Group (Note Stroke)
both Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
o1 Sequence Group (Note Stroke)
rh
        -- TODO second half has D after prefix
        -- I could maybe do that by having transparent strokes, so I could
        -- add the trailing thom.  But it's seems over general for this
        -- specific case, e.g. I don't see how solkattu would support it.
    , Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
both Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
rh
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
lSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
l) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
rh
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
both Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. (Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
prefix) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
rh
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
both
            Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
rh
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. (Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
prefix) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
both
            Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
rh
        Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
5 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k)) Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
prefix Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence Group (Note Stroke)
rh
    ]
    where
    rh :: Sequence Group (Note Stroke)
rh = Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
lSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
lSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
l Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
lSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
l
    lh :: Sequence Group (Note Stroke)
lh = Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
thomLH Sequence Group (Note Stroke)
rh
    both :: Sequence Group (Note Stroke)
both = Sequence Group (Note Stroke)
rh Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& Sequence Group (Note Stroke)
lh
    prefix :: Sequence Group (Note Stroke)
prefix = Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k -- din dinataka

kir_misra_1 :: Korvai
kir_misra_1 :: Korvai
kir_misra_1 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2017 Int
8 Int
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 Group (Note Stroke) -> Korvai
korvaiS1 Tala
Tala.misra_chapu (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
    Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
rh Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
thomLH Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
rh Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
o1 Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
rh
    where rh :: Sequence g (Note Stroke)
rh = Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
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)
nSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
lSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
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)
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)
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)
l

-- | Misra version of nddnnddn.
kir_misra_2 :: Korvai
kir_misra_2 :: Korvai
kir_misra_2 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2017 Int
9 Int
26 (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 Group (Note Stroke) -> Korvai
korvaiS1 Tala
Tala.misra_chapu (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
    Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
rh Stack =>
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
& Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
thomLH Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
rh Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
o1 Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
rh
    where rh :: Sequence g (Note Stroke)
rh = Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence g (Note Stroke)
-> Sequence g (Note Stroke) -> Sequence g (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence g (Note Stroke)
forall {g}. Sequence g (Note Stroke)
n Sequence 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
su (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)
n) 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)
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)
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)
n

c_17_10_23a :: Korvai
c_17_10_23a :: Korvai
c_17_10_23a = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2017 Int
10 Int
23 (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 Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
    Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
3 Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
cell Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
d Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
tSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k)
    where
    cell :: Sequence g (Note Stroke)
cell = 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)
d Sequence 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
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) 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)
d

c_17_10_23b :: Korvai
c_17_10_23b :: Korvai
c_17_10_23b = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2017 Int
10 Int
23 (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 Group (Note Stroke) -> Korvai
korvaiS1 Tala
adi (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
    Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
2 (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$ Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Int -> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => Int -> a -> a
repeat Int
3 (Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
pSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k)

-- * misra

c_18_05_25 :: Korvai
c_18_05_25 :: Korvai
c_18_05_25 = Korvai -> Korvai
sarvalaghu (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Stack => Int -> Int -> Int -> Korvai -> Korvai
Int -> Int -> Int -> Korvai -> Korvai
date Int
2018 Int
5 Int
25 (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh (Korvai -> Korvai) -> Korvai -> Korvai
forall a b. (a -> b) -> a -> b
$ Tala -> Sequence Group (Note Stroke) -> Korvai
korvaiS1 Tala
Tala.misra_chapu (Sequence Group (Note Stroke) -> Korvai)
-> Sequence Group (Note Stroke) -> Korvai
forall a b. (a -> b) -> a -> b
$
    Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall g sollu. Sequence g sollu -> Sequence g sollu
sd (Sequence Group (Note Stroke) -> Sequence Group (Note Stroke))
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a b. (a -> b) -> a -> b
$
      Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
o Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__
    Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__
    Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__
    Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.  Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
dSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall a. Rest a => a
__Sequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
. Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
nSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
kSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
onSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
odSequence Group (Note Stroke)
-> Sequence Group (Note Stroke) -> Sequence Group (Note Stroke)
forall a. Monoid a => a -> a -> a
.Sequence Group (Note Stroke)
forall {g}. Sequence g (Note Stroke)
k