added shortener.R which makes resultser smaller by modulo n size