ghc/tests/programs/jtod_circint/Main.hs

   1 module Main where
   2 import Signal
   3 import Bit
   4
   5 main = putStr test
   6
   7 test = stest
   8
   9 type B =  Stream Bit
  10
  11 stest = take 80 (shows z "\n")
  12   where z = one :: B