#!../ploki
NEXT main

FOR join LEET s ""
LEET i 0
IF i < @LENGTH (\@ . 1)
	LET s \@ . 1 . 0
	LET i i+1
	FOR join-loop IF i < @LENGTH (\@ . 1)
		LET s s _ (\@ . 0) _ (\@ . 1 . i)
		LET i i+1
		NEXT join-loop
	FI
FI
KTHX s
	
FOR map LEET r #<#>
LEET i 0
FOR map-loop IF i < @LENGTH (\@ . 1)
	LET r r _ #<(\@ . 0 . (\@ . 1 . i))#>
	LET i i+1
	NEXT map-loop
FI
KTHX r

FOR main LET list #<1 -2 3 52#>
@join #<" " @map #<@OMFG(\@ * 2) list#>#> _"