read-alt-text = fname + text ->                  read-alt-text = path + text ->
  text = char-in file-name                         text = char-in file-name
  ' file-name = name '.txt'                        ' file-name = name '.txt'
  ' name -- parse fname name '.' ext               ' name -- parse -r path . '/' name '.' .
;                                                ;

