Allow ~ to be a valid channel name part

[np]

We could then write:

new (c, ~c)

Not only as a leading char since one might want to name ~a~b a channel of session {~A,~B}