(@ xml-prices-in file-name .prices +-
    (# records-in file-name '/' PARSE_FILE (@ record +-
                                               (attach prices (# parse-record record))
                                           )
    )
+
    {string} file-name
    {A|L : price} prices
)
