#!/usr/bin/perl
# Kurt Schwind: A little of KC's Sunshine
# http://www.futuretg.com/FTHumanEvolutionCourse/Audio/English/KC_&_The_Sunshine_Band/KC_&_The_Sunshine_Band_-_Shake_Your_Booty.mp3

use strict;
use warnings;

my @l = qw(\n
a
aah
best
booty
can
chance
come
dance
do
don't
down
duty
everybody
feeling
feelings
fight
floor
get
give
home
I
in
it
let's
momma
now
Oh
on
run
shake
sister
tell
the
to
very
well
with
world
yeah
you
You
your
You're
yourself);

sub line {
    my $j = shift;
    while(defined $j ) {
        if($j) {
            print " ".$l[$j];
        }            
        else {
            print "\n";
        }
        $j = shift;
    }
}

sub sh {
    my $sh = shift;
    for(1..$sh ) { line (30); }
}

sub yb {
        line (42,4,0);
}

sub syb {
    my $m = shift;
    for(1..$m ) {
            sh(1);
            yb();
    }
}

sub refrain {
    for(1..2) { sh(7); line (0); syb(3); }
    line(0);
}

sub groove {sh(6); yb(); };

line (2,13,18,28,33,17,24,8,0,10,16,42,15,19,44,1,6,0,0); refrain();
line (2,40,5,40,5,9,23,35,36,0,43,33,3,22,33,38,21,5,32,0,0,27,0); refrain();
line (27,39,0); sh(5); line (0,2); sh(5); line (0,0,2,0); refrain(); line(2,0); groove();
line(2,10,16,33,14,0); groove();
line(2,19,44,1,6,0,0); groove();
line(41,5,9,23,9,23,0); groove();
line(7,20,37,25,26,0); groove();
line(0); groove(); line(2,29,11,34,31,0); sh(5);
line(28,42,4,0,2,9,42,12,0); sh(5);
line(0,0);