const-math-ghc-plugin-0.2.0.0: tests/1603.hs

module Main where

main = print (syn [-1])

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