gistfile1.hs

split n = [ceil half, floor half]
        where half = n / 2

incomplete x n = Bin x (incomplete x first) (incomplete x second)
           where let (first, second) = split n