module Project.Util where infixr 0 _$_ _$_ : ∀ {a b : Set} → (a → b) → a → b f $ x = f x