Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeText/Read_Unit.hs
module Prelude(Read(..)) where instance Read () where readsPrec p = readParen False ( \r -> [((),t) | ("(",s) <- lex r , (")",t) <- lex s] )
