diff --git a/progs/scream b/progs/scream
new file mode 100755
index 0000000..cd4cd03
Binary files /dev/null and b/progs/scream differ
diff --git a/scripts/timer b/scripts/timer
new file mode 100755
index 0000000..da5fa4c
--- /dev/null
+++ b/scripts/timer
@@ -0,0 +1,52 @@
+#!/bin/sh
+
+case $0 in
+  *"timer"*)
+    [ $# -ne 2 ] && printf "specify minutes and \
+      seconds\n" && exit 1
+    sleep $(($1 * 60 + $2))
+    printf "your timer is done\a\n"
+    exit 0
+    ;;
+  *"alarm"*)
+    [ $# -ne 1 ] && printf "specify time\n" && exit 1
+    ttw=$(($(date +%s --date="$1 tomorrow") - $(date +%s)))
+    sleep $ttw
+    printf "your alarm is done\a\n"
+    exit 0
+    ;;
+    *"tomato"*)
+    [ $# -ne 2 ] && \
+      printf "specify work and rest time\n" && exit 1
+  counter=0
+    while true; do
+      printf "start work cycle %s\a\n" $(($counter + 1))
+      sleep $(($1 * 60))
+      printf "start rest cycle %s\a\n" $(($counter + 1))
+      sleep $(($2 * 60))
+      counter=$(($counter + 1))
+    done
+    exit 0
+    ;;
+  *"stopwatch"*)
+    now=$(date +%s)
+    read var
+    printf "%s\n" $(($(date +%s) - $now))
+    exit 0
+    ;;
+  *"verbosewatch"*)
+    min=0
+    sec=0
+    while true; do
+      printf "%02d:%02d\r" $min $sec
+      sleep 1
+      sec=$(($sec + 1))
+      [ $sec -eq 60 ] && min=$(($min + 1)) && sec=0
+    done
+    exit 0
+    ;;
+  *)
+    printf "unknown invocation\n"
+    exit 2
+    ;;
+esac
diff --git a/scripts/wall b/scripts/wall
index a32eebe..2dbf520 100755
--- a/scripts/wall
+++ b/scripts/wall
@@ -1,7 +1,7 @@
 #!/bin/sh
 
-WALLDIR="${HOME}/.share/wallpapers"
-TEEFILE="${WALLDIR}/hist"
+WALLDIR="${HOME}/.local/share/wallpapers"
+TEEFILE="${WALLDIR}/.hist"
 BASECMD="feh --bg-fill"
 
 generate_wall () {