@gilbert189 | wasteof.money 4

select x p q
  | True = p
  | False = q

main = putStr (select (1 == 1) "yes" "no")

2 0 1

comments

golfed:

select _ p _ = p