levels salary = file-name + records ->
  while (lines file-name) ->
    line = line-in file-name

    if line ->
      attach records <
                       level    : <- s
                       quantity : <- q
                       title    : <- t
                     >
      ' s, q, t = line ! '^[*]' "\t" '^[*]' "\t" '^[*]'

      ++-                   s           q           t

    ;
  ;
_
  records : A|L : salary
;







