ko1nksm

#!/bin/sh

xs=80 ys=35
ORIGIN=$(clear) LF='
'

xorshift32=$(date +%s)
xorshift32() {
  set -- "$1" "$xorshift32"
  set -- "$1" $(( $2 ^ (($2 << 13) & 0xFFFFFFFF) ))

shirok

(define (filter pred xs)
  (define (skip xs)
    (cond [(null? xs) xs]
          [(pred (car xs)) xs]
          [else (skip (cdr xs))]))
  (unfold null?
          (^[xs] (car xs))
          (^[xs] (skip (cdr xs)))
          (skip xs)))