let size_shell_command = function | {kind = `File; path } -> fmt "\\ls -nl %s | awk '{print $5}'" (Filename.quote path) | {kind = `Directory; path } -> "echo '0'"