print "Content-type: text/html\n\n"; print < Compositions, Michael Scott Cuthbert Compositions

Vasarely Patterns

Program Notes

The opening of the piece is rather straightforward. EOF use Myke::Markov; use Myke::Misc; $text = file_as_scalar('notes_boac.txt'); $depth = 2; $words = 200; &Myke::Markov::build_word_hash($depth, $text); @fws = &Myke::Markov::first_words($depth); $fws[0] =~ s/^(\w)/uc($1)/e; print join ' ', @fws; print " "; print join ' ', Myke::Markov::iterative_babble ($depth, $words, @fws); print "\n"; print <

...read more notes

EOF