map.tri (132B)
1 x = map (i : append "Successfully concatenated " i) [("two strings!")] 2 main = equal? x [("Successfully concatenated two strings!")]
