{-# OPTIONS_GHC -F -pgmF my-foreign-preprocessor #-}
module A where

a :: String
a = "0000"