quicksort=: (($:@(<#[) , (=#[) , $:@(>#[)) ({~ ?@#)) ^: (1<#)
FOR VARIABLE i FROM 1 to 10 INCLUSIVE BEGIN BODY PRINT i, NEWLINE END BODY END FOR