trait vec_monad<A> {
    fn bind<B>(f: fn(A) -> ~[B]);
}

impl monad<A> of vec_monad<A> for ~[A] {
    fn bind<B>(f: fn(A) -> ~[B]) {
        let mut r = fail;
        for self.each |elt| { r += f(elt); }
        //~^ WARNING unreachable expression
        //~^^ ERROR the type of this value must be known
   }
}
fn main() {
    ["hi"].bind({|x| [x] });
}