Kawa/gnu/q2/testsuite/indent1.q2

define xx (15 + 5)
# This is a comment.
define (mx a b)
  if (a > b) a b
format #t "{~s}{~s}~%"
  vector 'a 'b
    ! yy
        mx 13
          14
    list xx yy 99
    ! zz (yy + 100)
    zz + 100
  'f
# Output: {#(a b (20 14 99) 214)}{f}