COMMENT:-----------------------

Compile me with
        ghc -c -O Subsequences.lhs
-------------------------------

> module Subsequences           (  isPrefixOf
>                               )
> where

> isPrefixOf                    ::  Eq a => [a] -> [a] -> Bool
> x `isPrefixOf` y              =   x==take (length x) y