How do I shorten this script? Use 'repeat with'?

[William de Smet]

Hi there,

Another question today.
How do I shorten this script?
----
set the loc of grc "k1" to cardWidth/2,cardHeight/2
set the topleft of grc "k2" to (item 1 of topright of grc "k1" -1, item 2
of topright of grc "k1")
set the topleft of grc "k3" to (item 1 of topright of grc "k2" -1, item 2
of topright of grc "k2")
set the topleft of grc "k4" to (item 1 of topright of grc "k3" -1, item 2
of topright of grc "k3")
set the topleft of grc "k5" to (item 1 of topright of grc "k4" -1, item 2
of topright of grc "k4")
----

I know I should use 'repeat with' but I am stuck.
repeat with x = 2 to 4
put "k" & x into tName
set the topleft of grc tName to (item 1 of topright of. grc....?.... , item
2 of topright of grc ...?....)
end repeat


Any help is appreciated!



greetings,

William