Add skip_while, take_while

[biboudis]

The sigs are fairly standard as @OlivierNicole proposed it

ocaml val take_while : ('a code -> bool code) -> 'a stream -> 'a stream val skip_while : ('a code -> bool code) -> 'a stream -> 'a stream