#! /bin/sh
set -e

find . -mindepth 1 -type d -printf '"%P"\n' | sort | sed 's/`/\\`/' |
xargs -I% -n1 sh -c \
    'test -f "%"/PlayList.m3u && cat "%"/PlayList.m3u | sed -e "s\^\%/\\"' \
> PlayList.m3u