!import "prelude" !Local
!import "view" !Local
!import "views.catalog" !Local

-- Lowering of map-success.source.txt to portable typed-program metadata.
-- Symbols:
--   100 map
--   101 f
--   102 xs
--   103 partial
--   104 out

program =
  listMapUseContract viewBool viewString 100 101 102 103 104

main =
  matchResult
    (diag env : renderDiagnostic diag)
    (env rest : "ok")
    (checkTypedProgramWith policyStrict program)