#!/bin/bash
perl -e " print \"$1\n\" x $2  " | perl butt | sort | uniq -c