expr_underscore_02.out

--- parse tree ---
[ Code
    "typ/bugs/expr_underscore_02.typ"
    ( line 1 , column 2 )
    (Let
       (BasicBind (Just (Identifier "d")))
       (Dict [ Reg ( Underscore , Literal (Int 1) ) ]))
, ParBreak
]
"typ/bugs/expr_underscore_02.typ" (line 1, column 2):
expected expression, found underscore