dStmt pat expr _ _ _) = hsep [ppr pat, larrow, ppr expr]
pprStmt (Le
pprStmt (BindStmt pat expr _ _ _) = hsep [ppr pat, larrow, ppr expr]
pprStmt (BindStmt pat expr _ _ _) = hsep [ppr pat, larrow, ppr expr]