Помогите решить задачу на Haskell

head - вывести в стандартный поток вывода первые n строк из входа.
Реализовать head следует в виде исполнимого модуля. Программа должна работать аналогично одноименной утилите Linux:
*Программа имеет необязательный параметр - имя входного файла. Если параметр не указан, то чтение должно производиться из стандартного потока ввода.
Программе можно передать необязательный параметр "-n <число>" задающий количество строк для вывода. По умолчанию - 10.
Если на входе менее n строк, то выводится всё содержимое.