#!/bin/bash

fname=$1

grep '(define (' $fname | tr '()' '  '|awk '{print $2}'
