On Thu, 2005-09-08 at 04:50 +0100, Jon Harrop wrote:
> Whilst trying to find the shortest OCaml program that hangs, I came up with:
> 
>   let rec f() = f() in f();;
> 
> and:
> 
>   let rec x = 1::x in x=x;;

Are you counting characters or tokens?  The following is shorter either
way:

    while true do () done;;

With -rectypes you can also do:

    let f f = f f in f f;;

Which is shorter in characters but has more tokens.