data compose = f => g => $f . $g