Module "Trace"
Nothing
[(ImportDecl (1,1) "Prelude" False Nothing Nothing)
,(FunctionDecl (1,1) (Ident "trace" 0) [(Equation (1,1) (FunLhs (Ident "trace" 0) [(VariablePattern (Ident "x" 2))]) (SimpleRhs (1,11) (Variable (QualIdent Nothing (Ident "x" 2))) []))])
]