x = map (\i : lconcat "Successfully concatenated " i) [("two strings!")]
main = equal? x [("Successfully concatenated two strings!")]