module Prelude where

dropWhile		           :: (a -> Bool) -> [a] -> [a]
dropWhile p []	                   = []
dropWhile p xs@(x:xs') | p x       = dropWhile p xs' 
		       | otherwise = xs