1{-# LANGUAGE TransformListComp #-}
2
3oldest :: [Int] -> [String]
4oldest tbl = [ "str"
5             | n <- tbl
6             , then id
7             ]
8