# Draw a list of characters at the specified coordinates:
# [1 2 'P 5 19 e]
draw-elements(chars): (
	chars every 3 max = width
	chars take 1 every 3 max = height
	1 to width each ( = x
		1 to height each ( = y
			chars packs 3 ( = char
				char at (1 2) is (x y) then (char at 3)
			) at 1 or " "
		) join
	) joinwith '\n
)

5 = x
5 = y
loop (
	input = key
	key is 'left then x - 1 = x
	key is 'right then x + 1 = x
	key is 'up then y - 1 = y
	key is 'down then y + 1 = y
	draw-elements (x y 'P 10 10 "")
	x y out
)