module Foo where


bar = 0

{-@ assume (Prelude.++) :: [a] -> [a] -> [a] @-}