(@ levels 'salary file-name .records +-
    (.* [# lines] file >
        ('' .line ..)
        (# line-in file-name .line)
        ([line] >
            (parse line salary "\t" quantity "\t" job-title "\t" .)
            (attach records (%
                               salary    -> ._
                               quantity  -> ._
                               job-title -> ._
                            )
            )
        )
    )
+
    {A|L : salary} records
)
