gistfile1.ls

sequence = (as) ->
    | empty as => unit []
    | otherwise =>
        x <- bind as[0]
        xs <- bind <| sequence (tail as)
        unit <| [x] ++ xs
map-m = map >> sequence