1module Completesig03A where
2
3data A = A
4       | B
5
6{-# COMPLETE A #-}
7