Haskell's $ operator in SML

dollar.sml

infixr 0 $
fun f $ x = f x

fun compute NONE = "No value"
  | compute (SOME x) = "The value is " ^ Int.toString x

fun println str = print $ str ^ "\n"

val _ = println $ compute $ SOME 42
val _ = println $ compute NONE