ec' 0

-- | Main
test ∷ IO ()
test = let x1 = []       ∷ [Int]
           x2 = [1,2,3]  ∷ [Int]
           x3 = [1..100] ∷ [Int]
           y1 = Leaf                            
read' ∷ (Serialise α) ⇒ String → Maybe α
read' s = case readPrec' 0 s of
    [(a,"")] → Just a
    _        → Nothing

-- | Our hand-made analogue of 'Prelude.show'.
read' s = case readPrec' 0 s of
    [(a,"")] → Just a
    _        → Nothing

-- | Our hand-made analogue of 'Prelude.show'.