{-# LANGUAGE GADTs #-}
>#WIP
hs-- 普通の構文 data List a = Empty | Cons a (List a) -- GADT の構文 data List a where Empty :: List a Cons :: a -> List a -> List a