diff --git a/bin/reduce_bed.R b/bin/reduce_bed.R
index d73fb94..4590e44 100644
--- a/bin/reduce_bed.R
+++ b/bin/reduce_bed.R
@@ -231,6 +231,8 @@ find_kmer_regions <- function(bed, kmer_counts, minoverlap = 1 , threads = NULL)
 
 # call function with given parameter if not in interactive context (e.g. run from shell)
 if (!interactive()) {
+  # show apply progressbar
+  pbo <- pbapply::pboptions(type = "timer")
   # remove last parameter (help param)
   params <- opt[-length(opt)]
   do.call(reduce_bed, args = params)