#NEWLINE# @ sig ( ( ( H / ( 'a' , 'b' ) ) >> ( 'b' , 'a' ) ) ) #NEWLINE# def swap( tup ) : #NEWLINE# #INDENT# '\n    swap :: (a, b) -> (b, a)\n\n    Swap the components of a pair.\n    ' #NEWLINE# ( a , b ) = tup #NEWLINE# return ( b , a )