-- Copyright 2021 Evan Laforge
-- This program is distributed under the terms of the GNU General Public
-- License 3.0, see COPYING or http://www.gnu.org/licenses/gpl-3.0.txt

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

import qualified Solkattu.Tala as Tala

import           Solkattu.Dsl.Mridangam


-- originally on 2014-09-29
-- try at 80bpm
e_kanda :: Korvai
e_kanda :: Korvai
e_kanda = Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi forall a b. (a -> b) -> a -> b
$ forall a b. (a -> b) -> [a] -> [b]
map (forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
5)
    [ forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&Sequence
rh forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r7 Sequence
rh
    , forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k)forall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r7 Sequence
rh
    , forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k)forall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r4 Sequence
rh forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r5 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk))
    , forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&Sequence
rh forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r4 Sequence
rh forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r5 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk))
    , forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r6 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk)) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
pkforall a. Monoid a => a -> a -> a
.Sequence
nakatiku))
    , let th :: Sequence
th = forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpkforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpkforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk) in
        forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__9forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.Sequence
th
        forall a. Monoid a => a -> a -> a
.  forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.Sequence
thforall a. Monoid a => a -> a -> a
.Sequence
nang_kita_tat_thom forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
thforall a. Monoid a => a -> a -> a
.Sequence
nang_kita_tat_thom

    , let th :: Sequence
th = forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpkforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk forall a. Monoid a => a -> a -> a
. Sequence
nang_kita_tat_thom
        in forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.Sequence
th forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
th

    -- from 2014-10-28a
    , forall a. Monoid a => a -> a
r2 Sequence
nang_kita_tat_thom forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o) forall a. Monoid a => a -> a -> a
. Sequence
nang_kita_tat_thom
    , let th :: Sequence
th = Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
        in forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.Sequence
th forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
th

    , let th :: Sequence
th = forall a. Monoid a => a -> a
r3 (Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
        in forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.Sequence
th forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
th
    , let th :: Sequence
th = forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktokforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktokforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
otforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
ok)forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o forall a. Monoid a => a -> a -> a
. Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
        in forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.Sequence
th forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
th
    , let th :: Sequence
th = forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktokforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
otforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
okforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
otforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
okforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
otforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
ok)forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o forall a. Monoid a => a -> a -> a
. Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
        in forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.Sequence
th forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
th

    -- endings
    , forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ forall {g}. Sequence g (Note Stroke)
k (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)))
    , forall sollu.
SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
trin forall {g}. Sequence g (Note Stroke)
k
        (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)))
        (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)))
        (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o))
    , forall sollu.
SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
trin forall {g}. Sequence g (Note Stroke)
k
        (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)))
        (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)))
        (forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ forall sollu. SequenceT sollu
__5 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)))
    ]
    where
    nang_kita :: Sequence
nang_kita = forall {g}. Sequence g (Note Stroke)
n forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktforall a. Monoid a => a -> a -> a
.Sequence
pkforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
t)
    nang_kita_tat_thom :: Sequence
nang_kita_tat_thom = Sequence
nang_kitaforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
    rh :: Sequence
rh = forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk
    ot :: Sequence g (Note Stroke)
ot = forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
t
    ok :: Sequence g (Note Stroke)
ok = forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k

-- work on otokN
e_21_02_07 :: Korvai
e_21_02_07 :: Korvai
e_21_02_07 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
2 Matra
7 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> Sequence -> Korvai
korvaiS1 Tala
adi forall a b. (a -> b) -> a -> b
$ forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
5 forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$
    forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
ktpk) forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
ktpk))
    forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r5 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k))

e_nd_d :: Korvai
e_nd_d :: Korvai
e_nd_d = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
1 Matra
31 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ Sequence
nd_d0 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 forall {g}. Sequence g (Note Stroke)
nd_d forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
nd_d_
    , forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
5 forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ Sequence
nd_d0 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 forall {g}. Sequence g (Note Stroke)
nd_d forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
nd_d_
    , forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ Sequence
nd_d0 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r4 forall {g}. Sequence g (Note Stroke)
nd_d forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
nd_d_
    , forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ Sequence
nd_ktpk0 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 Sequence
nd_ktpk forall a. Monoid a => a -> a -> a
. Sequence
nd_ktpk_
    , forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
5 forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ Sequence
nd_ktpk0 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 Sequence
nd_ktpk forall a. Monoid a => a -> a -> a
. Sequence
nd_ktpk_
    , forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ Sequence
nd_ktpk0 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r4 Sequence
nd_ktpk forall a. Monoid a => a -> a -> a
. Sequence
nd_ktpk_
    ]
    where
    nd_d0 :: Sequence
nd_d0 = Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
od
    nd_d :: Sequence g (Note Stroke)
nd_d = forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
d
    nd_d_ :: Sequence g (Note Stroke)
nd_d_= forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
od

    nd_ktpk0 :: Sequence
nd_ktpk0 = (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o) Stack => Sequence -> Sequence -> Sequence
& Sequence
nd_ktpk
    nd_ktpk :: Sequence
nd_ktpk = forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk
    nd_ktpk_ :: Sequence
nd_ktpk_ = forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
ktok

e_fours :: Korvai
e_fours :: Korvai
e_fours = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
2 Matra
15 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
Tala.rupaka_fast forall a b. (a -> b) -> a -> b
$
    forall a b. (a -> b) -> [a] -> [b]
map Sequence -> Sequence
make
    [ Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k
    , Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk
    , forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k
    , forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__
    , forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o
    , forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
ktkno
    , Sequence
onforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k)
    , forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k
    ] forall a. [a] -> [a] -> [a]
++
    [ Sequence
sarva forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k)))
    , Sequence -> Sequence
make forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ Sequence
onforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpkforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktok
    , Sequence
sarva forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r2 (Sequence
onforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpkforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktok) forall a. Monoid a => a -> a -> a
. Sequence
onforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktpkforall a. Monoid a => a -> a -> a
.Sequence
nakatiku))
    ]
    where
    sarva :: Sequence
sarva = Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
y
    make :: Sequence -> Sequence
make Sequence
s = Sequence
sarva forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
s)

e_tisram :: Korvai
e_tisram :: Korvai
e_tisram = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
2 Matra
21 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi forall a b. (a -> b) -> a -> b
$ forall a b. (a -> b) -> [a] -> [b]
map (forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6)
    [ Matra -> Sequence
sarva (Matra
6forall a. Num a => a -> a -> a
*Matra
8) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall sollu.
SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
trin forall a. Rest a => a
__ (forall a. Monoid a => a -> a
r3 Sequence
p1) (forall a. Monoid a => a -> a
r3 Sequence
p2) (forall a. Monoid a => a -> a
r3 Sequence
p3)
    , Matra -> Sequence
sarva (Matra
6forall a. Num a => a -> a -> a
*Matra
8) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall sollu.
SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
trin forall a. Rest a => a
__ (forall a. Monoid a => a -> a
r3 Sequence
p3) (forall a. Monoid a => a -> a
r3 Sequence
p2) (forall a. Monoid a => a -> a
r3 Sequence
p1)
    , Matra -> Sequence
sarva (Matra
6forall a. Num a => a -> a -> a
*Matra
8) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__ forall a. Monoid a => a -> a -> a
. forall sollu.
SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
-> SequenceT sollu
trin forall a. Rest a => a
__ (forall a. Monoid a => a -> a
r3 Sequence
p2) (forall a. Monoid a => a -> a
r3 Sequence
p2) (forall a. Monoid a => a -> a
r3 Sequence
p2)
    ]
    where
    sarva :: Matra -> Sequence
sarva = forall sollu. Stack => SequenceT sollu -> Matra -> SequenceT sollu
sarvaM (forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k)
    p1 :: Sequence
p1 = forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)
    p2 :: Sequence
p2 = forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)
    p3 :: Sequence
p3 = forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
o)

s_tisram_sarva :: Korvai
s_tisram_sarva :: Korvai
s_tisram_sarva = Korvai -> Korvai
sarvalaghu forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> Sequence -> Korvai
korvaiS1 Tala
adi forall a b. (a -> b) -> a -> b
$ forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6 forall a b. (a -> b) -> a -> b
$
    forall a. Monoid a => a -> a
r3 (forall {g}. Sequence g (Note Stroke)
vforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
ktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
ktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
ktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
p)) forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r3 (forall sollu. SequenceT sollu -> SequenceT sollu
g (forall {g}. Sequence g (Note Stroke)
vforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
ktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.Sequence
ktforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
p)))

e_tisram_tdgno :: Korvai
e_tisram_tdgno :: Korvai
e_tisram_tdgno = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
4 Matra
18 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi forall a b. (a -> b) -> a -> b
$
    forall a b. (a -> b) -> [a] -> [b]
map (forall g sollu. Matra -> Sequence g sollu -> Sequence g sollu
nadai Matra
6)
    [ forall a. Monoid a => Matra -> a -> a
repeat Matra
9 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
ktkno) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
uforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
p
    , forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ forall a. Rest a => a
__ (forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence
ktknoforall a. Monoid a => a -> a -> a
.Sequence
ktkno)) forall a. Monoid a => a -> a -> a
. forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence
ktknoforall a. Monoid a => a -> a -> a
.Sequence
ktkno) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k
    ]

e_5s :: Korvai
e_5s :: Korvai
e_5s = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
5 Matra
11 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> Section -> Korvai
korvai1 Tala
adi forall a b. (a -> b) -> a -> b
$
    forall sollu. Duration -> Section sollu -> Section sollu
endOn Duration
4 forall a b. (a -> b) -> a -> b
$ forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r7 Sequence
t5 forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r4 (forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall a. Monoid a => a -> a
r7 Sequence
t5) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
od
    where t5 :: Sequence
t5 = forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"ktpkpto_"

e_gumiki :: Korvai
e_gumiki :: Korvai
e_gumiki = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
6 Matra
6 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
exercise forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall g sollu. Sequence g sollu -> Sequence g sollu
sd forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r4 Sequence
nddn Stack => Sequence -> Sequence -> Sequence
& Sequence
"_ooooooooo"
    , forall g sollu. Sequence g sollu -> Sequence g sollu
sd forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r4 Sequence
nddn Stack => Sequence -> Sequence -> Sequence
& Sequence
"óoooóoooóo"
    , forall g sollu. Sequence g sollu -> Sequence g sollu
sd forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r4 Sequence
nddn Stack => Sequence -> Sequence -> Sequence
& forall a. Monoid a => a -> a
r5 Sequence
"óo"
    , forall g sollu. Sequence g sollu -> Sequence g sollu
sd forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r4 Sequence
nddn Stack => Sequence -> Sequence -> Sequence
& forall a. Monoid a => a -> a
r5 Sequence
"oó"
    , Sequence
rh Stack => Sequence -> Sequence -> Sequence
& forall g sollu. Sequence g sollu -> Sequence g sollu
sd Sequence
"óooooooo" forall a. Monoid a => a -> a -> a
. Sequence
rh Stack => Sequence -> Sequence -> Sequence
& forall {g}. Sequence g (Note Stroke)
o'
    , forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
_'Stack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
y forall a. Monoid a => a -> a -> a
. Sequence
"^,n,^,d," Stack => Sequence -> Sequence -> Sequence
& forall g sollu. Sequence g sollu -> Sequence g sollu
sd Sequence
"oooo" forall a. Monoid a => a -> a -> a
. Sequence
rh Stack => Sequence -> Sequence -> Sequence
& forall {g}. Sequence g (Note Stroke)
o'
    ,   forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
_'Stack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
y forall a. Monoid a => a -> a -> a
. Sequence
"^,n,nnd," Stack => Sequence -> Sequence -> Sequence
& Sequence
"o_o_ooo_"
      forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
dforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
_'Stack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
d forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
y forall a. Monoid a => a -> a -> a
. Sequence
"^,n,nnd,"
    ]
    where
    rh :: Sequence
rh = Sequence
"_,n,^,d, ^,n,^,d,"
    nddn :: Sequence
nddn = Sequence
"nddn"

sketch_21_06_12 :: Korvai
sketch_21_06_12 :: Korvai
sketch_21_06_12 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
6 Matra
12 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
sarvalaghu forall a b. (a -> b) -> a -> b
$ Tala -> [Sequence] -> Korvai
korvaiS Tala
adi
    [ forall a. Monoid a => a -> a
r3 (forall stroke.
SequenceT (Stroke stroke) -> SequenceT (Stroke stroke)
lt forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
d) forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"nnp,"forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
d forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (forall stroke.
SequenceT (Stroke stroke) -> SequenceT (Stroke stroke)
lt forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
yforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
d) forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"nnp,n,"forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
d
    , forall a. Monoid a => a -> a
r3 Sequence
"n,nd" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"n,^,"forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
d forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 Sequence
"n,nd" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"nnpnpldl"
    ]

e_21_08_15 :: Korvai
e_21_08_15 :: Korvai
e_21_08_15 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
8 Matra
15 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi forall a b. (a -> b) -> a -> b
$
    let pknook123 :: Sequence
pknook123 = forall sollu. SequenceT sollu -> SequenceT sollu
g forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknook pkpknook pkpkpknook" in
    [ Section
first
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknook" forall a. Monoid a => a -> a -> a
. Sequence
rh_ forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknook"
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknook" forall a. Monoid a => a -> a -> a
. Sequence
rh_ forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r2 Sequence
"pknook")
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknook" forall a. Monoid a => a -> a -> a
. Sequence
rh_ forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r3 Sequence
"pknook")
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"pknook" forall a. Monoid a => a -> a -> a
. Sequence
rh_ forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` Sequence
pknook123
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall a. Monoid a => a -> a -> a
. Sequence
"ND,n,nd,n,nd,nd,"
    , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri123' Sequence
pknook123 Sequence
"NN_v_"
    ] forall a. [a] -> [a] -> [a]
++

    let kookou :: Sequence
kookou = forall sollu. SequenceT sollu -> SequenceT sollu
g forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"kookou_kno"
        kook :: Sequence
kook = forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"kook"
    in
    [ Section
first
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` Sequence
kookou forall a. Monoid a => a -> a -> a
. Sequence
rh_ forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` Sequence
kookou
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` Sequence
kookou forall a. Monoid a => a -> a -> a
. Sequence
rh_ forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` (Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
kookou)
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` Sequence
kookou forall a. Monoid a => a -> a -> a
. Sequence
rh_ forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceEnd` (Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
kookou)
    , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r3 forall a b. (a -> b) -> a -> b
$ Sequence
kookou forall a. Monoid a => a -> a -> a
. Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
kookou forall a. Monoid a => a -> a -> a
. Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
kookforall a. Monoid a => a -> a -> a
.Sequence
kookou forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r3 (Sequence
onforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
vforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3)
    ] forall a. [a] -> [a] -> [a]
++ forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat
    [ Sequence -> Sequence -> [Section]
mk1 (forall {g}. Sequence g (Note Stroke)
oStack => Sequence -> Sequence -> Sequence
&forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k) (forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k)
    , Sequence -> Sequence -> [Section]
mk1 (forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k)) (forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
pforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k))
    , [Section]
mk2
    , [Section]
mk3
    , [Section]
mk4
    ]
    where
    mk1 :: Sequence -> Sequence -> [Section]
mk1 Sequence
_Tk  Sequence
_tk =
        [ Section
first
        , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
otk forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
rho forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otk forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
rh_
        , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otk forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
rh_
        , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otk forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (Sequence
n_ktpkforall a. Monoid a => a -> a -> a
.Sequence
_tk) forall a. Monoid a => a -> a -> a
. Sequence
n_ktpk
        , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otk forall a. Monoid a => a -> a -> a
. Sequence
n_ktpkforall a. Monoid a => a -> a -> a
.Sequence
_tkforall a. Monoid a => a -> a -> a
.Sequence
_tkforall a. Monoid a => a -> a -> a
.Sequence
n_ktpkforall a. Monoid a => a -> a -> a
.Sequence
n_ktpk
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu.
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tsep (Matra -> Sequence
seqN Matra
2) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
od
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall a. (Semigroup a, Monoid a) => [a] -> a -> a
prefixes (forall a b. (a -> b) -> [a] -> [b]
map Matra -> Sequence
seqN [Matra
1, Matra
2, Matra
3]) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)
        ]
        where
        seq :: Sequence
seq = forall {g}. Sequence g (Note Stroke)
otk forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 (Sequence
on_ktokforall a. Monoid a => a -> a -> a
.Sequence
_Tk) forall a. Monoid a => a -> a -> a
. Sequence
on_ktok
        seqN :: Matra -> Sequence
seqN Matra
c = forall {g}. Sequence g (Note Stroke)
otk forall a. Monoid a => a -> a -> a
. Sequence
on_ktok forall a. Monoid a => a -> a -> a
. forall a. Monoid a => Matra -> a -> a
repeat Matra
c Sequence
_Tk forall a. Monoid a => a -> a -> a
. forall a. Monoid a => Matra -> a -> a
repeat Matra
c Sequence
on_ktok
    mk2 :: [Section]
mk2 = Sequence -> [Section]
prepare Sequence
seq forall a. [a] -> [a] -> [a]
++
        [ forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu.
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tsep (forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seq) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
od
        ]
        where
        seq :: Sequence
seq = Sequence
on_ktok forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"oktknook"forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.Sequence
on_ktok
    mk3 :: [Section]
mk3 = Sequence -> [Section]
prepare Sequence
seq forall a. [a] -> [a] -> [a]
++
        [ forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otk forall a. Monoid a => a -> a -> a
. Sequence -> Sequence
closed (Matra -> Sequence
seqN Matra
2)
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$
            forall sollu.
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tsep (forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Matra -> Sequence
seqN Matra
2) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall sollu. SequenceT sollu
__3forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
od
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall a. (Semigroup a, Monoid a) => [a] -> a -> a
prefixes (forall a b. (a -> b) -> [a] -> [b]
map ((forall {g}. Sequence g (Note Stroke)
otk.) forall b c a. (b -> c) -> (a -> b) -> a -> c
• Matra -> Sequence
seqN) [Matra
1, Matra
2, Matra
3]) (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
kforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__)
        ]
        where
        seq :: Sequence
seq = Sequence
on_ktokforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => a -> a
r2 (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"oktknooktk"))
        seqN :: Matra -> Sequence
seqN Matra
c = Sequence
on_ktok forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (forall a. Monoid a => Matra -> a -> a
repeat Matra
c (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"oktkno") forall a. Monoid a => a -> a -> a
. forall a. Monoid a => Matra -> a -> a
repeat Matra
c (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"oktk"))
    mk4 :: [Section]
mk4 = Sequence -> [Section]
prepare Sequence
seq forall a. [a] -> [a] -> [a]
++
        [ forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu.
SequenceT sollu -> [SequenceT sollu] -> SequenceT sollu
join (forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) forall a b. (a -> b) -> a -> b
$ forall a b. (a -> b) -> [a] -> [b]
map ((forall {g}. Sequence g (Note Stroke)
otk.) forall b c a. (b -> c) -> (a -> b) -> a -> c
• Matra -> Sequence
seqN) [Matra
1, Matra
2, Matra
3]
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ (forall {g}. Sequence g (Note Stroke)
odforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__) (forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seqforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"o_k_okk_")
        , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall sollu.
SequenceT sollu
-> SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tsep (forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seq) (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"okk_D___") (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"o_k_okk_D___")
            forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"o_k_okk_okk_D"
        ]
        where
        seq :: Sequence
seq = Matra -> Sequence
seqN Matra
1
        seqN :: Matra -> Sequence
seqN Matra
c = Sequence
on_ktok forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"oktkoktknook" forall a. Monoid a => a -> a -> a
. forall a. Monoid a => Matra -> a -> a
repeat Matra
c (forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"nok_ou_k")

    first :: Section
first = forall sollu. Section sollu -> Section sollu
x2 forall a b. (a -> b) -> a -> b
$ forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall a. Monoid a => a -> a -> a
. Sequence
rh_
    prepare :: Sequence -> [Section]
prepare Sequence
seq =
        [ Section
first
        , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
otk forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
rho forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otk forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
rh_
        , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otk forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
rh_
        , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence
seq forall a. Monoid a => a -> a -> a
. forall {g}. Sequence g (Note Stroke)
otkforall a. Monoid a => a -> a -> a
.Sequence -> Sequence
closed Sequence
seq
        ]

    n_ktpk :: Sequence
n_ktpk = forall sollu. SequenceT sollu -> SequenceT sollu
g forall a b. (a -> b) -> a -> b
$ forall {g}. Sequence g (Note Stroke)
nforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktpk
    on_ktok :: Sequence
on_ktok = forall sollu. SequenceT sollu -> SequenceT sollu
g forall a b. (a -> b) -> a -> b
$ Sequence
onforall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
ktok
    otk :: Sequence g (Note Stroke)
otk = forall {g}. Sequence g (Note Stroke)
oforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
tforall a. Monoid a => a -> a -> a
.forall {g}. Sequence g (Note Stroke)
k
    rho :: Sequence
rho = Sequence
rh Stack => Sequence -> Sequence -> Sequence
& Sequence
"oo_o_oo_o_oo_o"
    rh_ :: Sequence
rh_ = Sequence
rh Stack => Sequence -> Sequence -> Sequence
& Sequence
"oo"
    rh :: Sequence
rh = Sequence
"nd,n,nd,n,nd,n"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"ktok"
    tri123' :: SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri123' SequenceT sollu
sep SequenceT sollu
a = SequenceT sollu
sep forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri123 SequenceT sollu
sep SequenceT sollu
a

e_21_10_10 :: Korvai
e_21_10_10 :: Korvai
e_21_10_10 = Stack => Matra -> Matra -> Matra -> Korvai -> Korvai
date Matra
2021 Matra
10 Matra
10 forall a b. (a -> b) -> a -> b
$ Korvai -> Korvai
ganesh forall a b. (a -> b) -> a -> b
$ Tala -> [Section] -> Korvai
korvai Tala
adi
    [ forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall a. Monoid a => a -> a -> a
. Sequence
rh_
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ Sequence
rho forall a. Monoid a => a -> a -> a
. Sequence
"ND,n,nd" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
pkforall a. Monoid a => a -> a -> a
.forall a. Monoid a => a -> a
r4 Sequence
"dpn,")
    , forall sollu. Section sollu -> Section sollu
x2 forall a b. (a -> b) -> a -> b
$ forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"dpn,do" forall sollu.
(Stack, Pretty sollu) =>
SequenceT sollu -> SequenceT sollu -> SequenceT sollu
`replaceStart` Sequence
rho forall a. Monoid a => a -> a -> a
. Sequence
"ND,n,nd" forall a. Monoid a => a -> a -> a
. forall g sollu. Sequence g sollu -> Sequence g sollu
su (Sequence
pkforall a. Monoid a => a -> a -> a
.forall a. Monoid a => a -> a
r4 Sequence
"dpn,")
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ Sequence
"dpn," forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r5 Sequence
"doN," forall a. Monoid a => a -> a -> a
. Sequence
"do" forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu
g (Sequence
onforall a. Monoid a => a -> a -> a
.forall a. Rest a => a
__forall a. Monoid a => a -> a -> a
.Sequence
ktok) forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r8 Sequence
"dpn,"
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r2 forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r4 Sequence
"doN," forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r4 Sequence
"dpn,"
    , forall a. a -> Section a
s forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r4 forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r2 Sequence
"doN," forall a. Monoid a => a -> a -> a
. forall a. Monoid a => a -> a
r2 Sequence
"dpn,"
    , forall a. a -> Section a
ending forall a b. (a -> b) -> a -> b
$ forall g sollu. Sequence g sollu -> Sequence g sollu
su forall a b. (a -> b) -> a -> b
$ forall a. Monoid a => a -> a
r4 Sequence
"doN,dpn," forall a. Monoid a => a -> a -> a
. forall sollu. SequenceT sollu -> SequenceT sollu -> SequenceT sollu
tri_ Sequence
"d_pk" (forall sollu. SequenceT sollu -> SequenceT sollu
g Sequence
"doN,doN,")
    ]
    where
    rho :: Sequence
rho = Sequence
rh Stack => Sequence -> Sequence -> Sequence
& Sequence
"oo_o_oo_o_oo_o"
    rh_ :: Sequence
rh_ = Sequence
rh Stack => Sequence -> Sequence -> Sequence
& Sequence
"oo"
    rh :: Sequence
rh = Sequence
"nd,n,nd,n,nd,n"forall a. Monoid a => a -> a -> a
.forall g sollu. Sequence g sollu -> Sequence g sollu
su Sequence
"ktok"