IFS= read a&&(b=${a//</>}
while ${a/*<*};do a=${a/<};b=${b/>/<};done
echo "$b"
. *)