janmasrovira

import System.Environment

type Pattern = [[Char]]

fractalize :: Pattern -> Int -> String
fractalize [] _ = ""
fractalize pat k = unlines [ [ charAt k i j | j <- [0..m^k - 1] ] | i <- [0..n^k - 1] ]
  where
    n = length pat
    m = length (head pat)