Setmemorymax(1024)
grid=10
a1=directshowsource("D:\Downloads\say my name.webm",audio=false).converttorgb
l=ceil(float(a1.framecount)/(grid*grid))

function HRepeat(clip c, int g, int l, int x, int y, int d) {
d == 0 ?
\x == g-1 ? c.trim(l*(g-1+g*y), -l) : StackHorizontal(c.trim(l*(x+g*y), -l), HRepeat(c, g, l, x+1, y, d)) :
\x == g-1 ? c.trim(l*(g-1+g*y), -l) : StackHorizontal(HRepeat(c, g, l, x+1, y, d), c.trim(l*(x+g*y), -l))
}

function VHRepeat(clip c, int g, int l, int y) {
d = int(fmod(y,2))
d == 0 ? StackHorizontal(y == 0 ? blankclip(c.trim(0,-l)) : c.trim(l*(g-1+g*(y-1)), -l), HRepeat(c, g, l, 0, y, d)) :
\StackHorizontal(HRepeat(c, g, l, 0, y, d), c.trim(l*(g-1+g*(y-1)), -l))
d == 0 ? animate(last, 0, l, "crop", c.width, 0, c.width*g, c.height, 0, 0, c.width*g, c.height) :
\animate(last, 0, l, "crop", 0, 0, c.width*g, c.height, c.width, 0, c.width*g, c.height)
y == g-1 ? last : StackVertical(last, VHRepeat(c, g, l, y+1))
}

VHRepeat(a1,grid,l,0)
converttoyv12