Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/read/singleconstr/Main.hs
data MachineInstruction = Test deriving (Show, Read) main = do putStrLn $ show $ Test print $ (read :: String->MachineInstruction) $ show $ Test
