{-# OPTIONS_GHC -F -pgmF zero-to-one #-}
module Main where

a :: String
a = "0000"

main :: IO ()
main = putStrLn a