case $tag in
*\<head\>*|\*\<head\ *\>) # Inline styles into head
printf '%s<meta name="viewport" content="width=device-width">
+ <meta charset="UTF-8">
<style type="text/css"><!--\n' "${tag%${tag#*<head*>}}"
cat "${0%/*}/clickslide.css"
printf '\n--></style>%s' "${tag#*<head*>}"