diff --git a/doc/Tutorial-hamusic.lt.pdf b/doc/Tutorial-hamusic.lt.pdf
deleted file mode 100644
Binary files a/doc/Tutorial-hamusic.lt.pdf and /dev/null differ
diff --git a/hamusic.cabal b/hamusic.cabal
--- a/hamusic.cabal
+++ b/hamusic.cabal
@@ -1,9 +1,9 @@
 -------------------------------------------------------------------------------
 name:           hamusic
-version:        0.1.2
+version:        0.1.2.1
 author:         Samuel Silva <silva.samuel@alumni.uminho.pt>
 maintainer:     Samuel Silva <silva.samuel@alumni.uminho.pt>
-copyright:      Copyright (c) 2008 Samuel Silva
+copyright:      Copyright (c) 2008-2009 Samuel Silva
 stability:      experimental
 
 synopsis:       Library to handle abstract music
@@ -24,12 +24,10 @@
     TODO
     src/Makefile
     src/Script.dtd
-    doc/Tutorial-hamusic.lt.pdf
-    script/haskellPP.pl
 
 library 
-    build-depends: base, containers, process, directory
-    build-depends: HaXml, musicxml
+    build-depends: base < 4, containers, process, directory
+    build-depends: HaXml, musicxml >= 0.1.2
     build-depends: haskore >= 0.0.3, non-negative
 
     extensions: TypeSynonymInstances, FlexibleInstances
diff --git a/script/haskellPP.pl b/script/haskellPP.pl
deleted file mode 100644
--- a/script/haskellPP.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-#####################################################################
-# This scripts process Literate Haskell Script itself to be process 
-#   by lhs2TeX with haddock comments. 
-#
-
-use strict;
-use warnings;
-
-my @tag=();
-
-while (<>) {
-    if ($_ =~ /\\begin{(.*)}/) {push @tag => $1;}
-    
-    if ( elem("code",@tag) and /(.*)--(.*)/) {
-        print $1 => '--' => 
-#            "\\begin{verbatim}" => $2 => "\\end{verbatim}" => "\n";
-            process($2) => "\n";
-    }
-    elsif (elem("nocode",@tag)) {;}
-    else {
-        print;
-    }
-    if ($_ =~ /\\end{(.*)}/ and $1 eq $tag[@tag-1]) {pop @tag;}
-}
-
-#####################################################################
-
-#######################################
-sub process{
-    my ($input) = @_;
-    $input =~ s/\\/\$\\backslash\$/g;
-    $input =~ s/\|/\|\|/g;
-    $input =~ s/\@/\@\@/g;
-    $input =~ s/\^//g;
-    $input =~ s/\"/\'/g;
-    $input =~ s/_/\\_/g;
-    return $input;
-}
-
-#######################################
-sub elem {
-    my ($x,@xs) = @_;
-    my $res = 0;
-    for (@xs) {$res=1 if $x eq $_}
-    return $res;
-}
-