alt-text = path + res ->
  if (name '/') ->
    res = char-in file-name
    ' file-name = name '.txt'
    ' name -- parse -r . '/' name '.' .
  else
    res = char-in file-name
    ' file-name = name '.txt'
    ' name -- parse name '.' .
  ;
;


