module Format where

--{return attention

  ret_post ::
    Int ->
    ( Int
    , Int
    ) --more than 1 line arg
        ->
    ( Int
    , Int
    ) --more than 1 line return type

  ret_pre
    :: Int
    -> ( Int 
       , Int
       ) --more than 1 line arg
    -> ( Int
       , Int
       ) --more than 1 line return type

--}return attention

--{comments
  com_post :: 
    Int {-arg1-} -> 
    Int {-arg2-}

  com_pre
    :: Int --arg1
    -> Int --arg2

--}comments

  ret_post x _ = (x,x)
  ret_pre x _ = (x,x)
  com_post x = x
  com_pre x = x