; MIT License
; Copyright (C) 2022 Shintaro Mukai.
; https://mukai.systems/articles/h7e86oucj0jv25molxsx3odyyxcns1tk/

; sorted.

(function! sorted? (args)
  (if (nil? (cdr args)) true
      (< (car args) (cadr args)) (sorted? (cdr args))))

(function! main (args)
  (write (sorted? (map int args))))