import Text.Printf
-- Будем представлять календарь как таблицу (список списков)
-- Каждая клетка таблицы может включать дату, заголовок или быть пустой
data Cell = Day Int | Header String | Empty deriving Show
-- Формируем таблицу с календарем (отделили чистую функцию от IO)
-- Строим список, который соответствует таблице, если читать ее слева направо, сверху вниз. 
-- Склеиваем: заголовки, начальные пустые клетки, даты, конечные пустые клетки
-- Разбиваем полученный список на блоки по 7 элементов. Получаем "таблицу" (список списков)
-- Например, для (calendar 15 5) функция возвращает: 
--   [Header "mon",Header "tue",Header "wed",Header "thu",Header "fri",Header "sat",Header "sun"]
--   [Empty,Empty,Empty,Empty,Day 1,Day 2,Day 3]
--   [Day 4,Day 5,Day 6,Day 7,Day 8,Day 9,Day 10]
--   [Day 11,Day 12,Day 13,Day 14,Day 15,Empty,Empty]
calendar :: Int -> Int -> [[Cell]]
calendar days first = splitBy 7 $ headerLine
 ++ datesLines
  where countStart = first-1                   -- количество пустых клеток на первой неделе
        countEnd   = (8-days-first) `mod` 7    -- количество пустых клеток на последнкй неделе
        datesLines = replicate countStart Empty ++ map Day [1..days] ++ replicate countEnd Empty
        headerLine = map Header ["mon", "tue", "wed", "thu", "fri", "sat", "sun"] 
-- Разбивает список xs на блоки по n элементов
splitBy :: Int -> [t] -> [[t]]
splitBy _ [] = []
splitBy n xs = start : splitBy n end
  where (start, end) = splitAt n xs
-- Печатает календарь (вынесли форматирование календаря в отдельную функцию)
-- Для каждой строки вызываем showLine: преобразовываем значение клетки в строку (showElement), 
--   форматируем (printf) и вставляем между ними пробелы (unwords). Получаем строку для вывода на экран.
-- Полученные строки
 выводим на экран (unlines превращает список строк в одну строку с символами '\n')
printCalendar :: [[Cell]] -> IO ()
printCalendar cells = putStr $ unlines $ map showLine $ cells
  where showLine xs = unwords $ map (printf "%3s" . showElement) xs
        showElement (Day d)    = show d
        showElement (Header h) = h
        showElement Empty      = ""
main = do
  first <- do putStr "Enter start day of week (1..7): " ; readLn
  days <- do putStr "Enter count days in month: " ; readLn
  putStrLn ""
  printCalendar $ calendar days first

bool sonntag(int x) {return x % 7 = 0;}
bool einstellig(int y) {return y<10;}
void print_tag(int z)  
{
   if(einstellig(z)) printf(" ");
   printf("%d", z);
}
void print_kalender(int first_day, int num_days)
{
   int count = 0;
   //Fehlerbehandlung
   if(first_day > 7 || num_days > 31 || num_days < 28) {printf("Fehler......"); return;}
   //Header ausgeben
   printf("Mo Di Mi Do Fr Sa So\n");
   //Body ausgeben
   count = first_day + num_days;
   for(int i =1;i<=count;i++)
   {
      if(i< first_day) 
      {
        printf("   ");
      }
      else 
      {
         print_tag(i - first_day + 1);
         if(sonntag(i)) {printf("\n");}
      }
   }
}