: parse-frames ( id3v2-info -- id3-info )
    [ <id3-info> ] dip frames>>
    {
        [ [ frame-id>> "TIT2" = ] find nip [ data>> >>title ] when* ]
        [ [ frame-id>> "TALB" = ] find nip [ data>> >>album ] when* ]
        [ [ frame-id>> "TPE1" = ] find nip [ data>> >>artist ] when* ]
        [ [ frame-id>> "TCON" = ] find nip [ data>> parse-genre >>genre ] when* ]
        [ [ frame-id>> "COMM" = ] find nip [ data>> >>comment ] when* ]
        [ [ frame-id>> "TYER" = ] find nip [ data>> >>year ] when* ]
    } cleave ;