path: root/testsuite/tests/ghc-regress/numeric/should_run/1603.hs

module Main where

main = print (syn [-1])

syn :: [Int] -> [Int]
syn (d:ds) = rem d 0x40000000 : syn ds
syn [] = []