#!/usr/local/Gambit-C/bin/gsi-script
(define (main arg)
  (pretty-print (expt (string->number arg) 2)))