> import Music.Theory.Duration.Sequence.Notate
> import Music.Theory.Duration.Annotation
> import Music.Theory.Duration.RQ.Tied
> import Music.LilyPond.Light

![hly-00](hly-00.png)

> let {ts = [(3,4),(2,4),(3,4)]
>     ;rq = [2/3,7/3,1,3/5,2/5+1/3,2/3,3/2,1/2]
>     ;ps = [c4,d4,e4,f4,g4,a4,b4,c5]
>     ;sr = default_rule []
>     ;Just n = notate sr ts rq
>     ;a = mm_ascribe n ps
>     ;jn (i,j) = j #@ i
>     ;m = da_to_measures jn ts a
>     ;fr = mk_fragment_mm (105,20) m}
> in ly_process_cwd PNG "hly-00" fr