Dollar.purs

module Main where

import Prelude ()

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

infixr 1000 $

id x = x

test1 x = id $ id $ id $ id $ x

test2 x = id id $ id x
    
main = Debug.Trace.trace "Done"