#!/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(
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
/n);

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

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

sub yb {
        line (41,3,44);
}

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

sub refrain {
    for(1..2) { sh(6); line (44); syb(2); }
    line(44);
}

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

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