path: root/testsuite/tests/ghc-regress/programs/jtod_circint/Main.hs

module Main where
import Signal
import Bit

main = putStr test

test = stest

type B =  Stream Bit

stest = take 80 (shows z "\n")
  where z = one :: B