module Rallod where

infixl 9 ==>

(==>) :: a -> (a -> b) -> b
x ==> f = f $ x