gistfile1.txt

    let rec encode (o:obj) = 
        let x = ofObject o in
        let b = toBytes x in 
        let length = List.length b in
        let lenghtInByte = List.head (toBytes (Int length)) in
        let lenghtOfLenghtBinaryFormInByte = List.head (toBytes(Int(String.length (intToBinary length)))) in
        match x with    
            | String s -> 
                match length with
                    | 0 -> [0x80uy]
                    | 1 when List.head b <= 0x7fuy -> [List.head b] 
                    | n when n < 56 -> (0x80uy + lenghtInByte) :: b
                    | x -> [0xb7uy + lenghtOfLenghtBinaryFormInByte] @ toBytes (Int length) @ b
            | Items i ->           
                match i with
                    | [] -> []
                    | x -> 
                        let serializedList =  x  |> List.map encode |> List.concat in 
                        match length with
                            | n when n < 56  -> [ 0xc0uy + lenghtInByte ] @ serializedList
                            | _ -> [0x7fuy + lenghtOfLenghtBinaryFormInByte] @ toBytes (Int length) @ serializedList