>>109757854
main = print x where
foo = (+1)
bar = (+2)
baz = (*0)
buzz = (*10)
y = 10
x = 1
|> foo
|> bar
?|> (y < 10, baz, buzz)
|> bar
(?|>) :: a -> (Bool, (a -> b), (a -> b)) -> b
(?|>) a (cond, f, g) = (if cond then f else g) a
(|>) :: a -> (a -> b) -> b
(|>) a f = f a