Flavour: Clean GHC Trampolining: No Yes

SAPL source code (or load the SAPL code of the compiler itself, 190Kb):

:: list = nil | cons x xs take !n xs = select xs nil (\a as = if (eq n 0) nil (cons a (take (sub n 1) as))) filter f xs = select xs nil (\a as = if (f a) (cons a (filter f as)) (filter f as))

Generated JS code: