input.hs

tmpd = do
  tmp <- var $ glob "/tmp/tmp/"
  today <- function $ cmd "date" ["+%F"]
  when_ (not_ $ dirExists tmp) $ mkdir tmp 
  cd tmp 
  i <- var $ lit "1" 
  dir <- var $ today
  while_ (dirExists dir) $ do
    set i $ readVar i + 1 
    set dir $ today <> lit "." <> readVar i
  mkdir dir 
  cd dir 

output.sh

_V0=/tmp/tmp/
_F1() {
  date "+%F"
}
if ! "$(test "-d" "$_V0")"
then
  mkdir "$_V0"
fi
cd "$_V0"
_V2="1"
_V3="$(_F1)"
while test "-d" "$_V3"
do
  _V2="$(expr "$_V2" "+" "1")"
  _V3="$(_F1)"".""$_V2"
done
mkdir "$_V3"
cd "$_V3"