 x i d) = " (" ++ show x ++ escribeABB i ++ escribeABB d ++ ")"

-- Procedimien
escribeABB (Nodo x i d) = " (" ++ show x ++ escribeABB i ++ escribeABB d ++ ")"
escribeABB (Nodo x i d) = " (" ++ show x ++ escribeABB i ++ escribeABB d ++ ")"