#!/usr/local/bin/sbcl --script
;
; This example shows you how a programming task is made portable
; using the Porta Function.
;

(load "/home/grid/porta.lisp")

;
; Main Program
;

(defvar result NIL)

(setq result (porta '(* 5 6)))

(format t "~a~%" result)

;
; End Main
;