1{-# LANGUAGE QuasiQuotes #-}
2f [True] = 1
3f _ = 0
4
5