--- /dev/null
+infixr 9 (.)\r
+\r
+@private\r
+@inline\r
+(f . g) = \x -> f (g x)\r
+\r
+@private\r
+@inline\r
+flip (x,y) = (y,x)\r
+\r
+@private\r
+@inline\r
+flip4 = flip . flip . flip . flip\r
+\r
+main = flip4 ("a", "b")\r
+--\r
+(a,b)
\ No newline at end of file