test2 :: ShowS
test2 = strCat [showString "aaa", showString "bbb", showString "ccc"]
test2 :: ShowS
test2 = strCat [showString "aaa", showString "bbb", showString "ccc"]
test2 = strCat [showString "aaa", showString "bbb", showString "ccc"]