\version "2.18.2"
#(set-default-paper-size "letter")
\paper { bottom-margin = 14\mm }

\header {
	title = "Piranha Plant River"
	composer = "chri d. d."
}

piranha = {b8-. b-. d'-. a-. g-. a-. a-. r |}
rh = {
	\clef treble
	\time 4/4
	\tempo 4=120
	R1*4
	\repeat "unfold" 2 {\piranha \piranha \piranha b8-. e'-. a-. g-. f2}
	\repeat "unfold" 2 {d'8-. d'-. f'-. d'-. c'-. d'-. d'-. r |}
	b8-. b-. d'-. b-. a-. b-. b-. r | b8-. d'-. b-. a-. g2 |
	f1 e1 b'1 d''1 | R1 r4 f4 e2 r4 b'4 c''2 R1 | R1 r2 r4 b'8 c'' d''1 R1 |
	\bar ":|."
}

lh = {
	\clef bass
	\repeat "unfold" 7 {
		\repeat "unfold" 4 {d8 b, a, e} |
		\repeat "unfold" 4 {d-. b,-. a,-. e-.} |
	}
	\pageBreak
}

commonw = {
	\override Staff.TimeSignature #'stencil = #'()
	\cadenzaOn
}
nbar = { \bar "|" }

rhw = {
	\clef treble
	\tempo 4=100
	\commonw
	d''8[^\markup {\italic "rubato," "accompany with a rainstick"} b' a' e''] d''[ b' a' e''] \nbar d''1 \nbar
	r1 \nbar r1. \nbar
	b'8[ b' d'' b'] a'[ b'] b'2 \nbar
	r1 \nbar r1 \nbar
	b'8[ d'' a' g'] f'2 \nbar
	r1 \nbar r1 \nbar
	b'8[ d'' a' g'] f'2 \nbar
	r1 \nbar r1 \nbar
	r1 \nbar r1
}

lhw = {
	\clef bass
	\commonw
	r1\sustainOn \nbar r1 \nbar
	d'8[ b a e'] d'[ b a e'] \nbar d'1. \nbar
	r1 r4 \nbar
	b8[ b d' b] a[ b] b4~ \nbar b1 \nbar
	r1 \nbar
	f4 a2. \nbar r1 \nbar
	r1 \nbar
	f2 b2 \nbar d'1 \nbar
	r1 \nbar r1 \bar ":|."
}

\book {
	\markup {\fill-line {"I. Piranha Plant River (main area)"}}
	\score {
		\new PianoStaff <<
			\new Staff \rh
			\new Staff \lh
		>>
		\layout {} \midi {}
	}
	\markup {\fill-line {"II. River of Plants of Piranha (underwater)"}}
	\score {
		\new PianoStaff <<
			\new Staff \rhw
			\new Staff \lhw
		>>
		\layout {}
	}
	\score {
		\new Staff <<\rhw \lhw>>
		\midi {}
	}
}