Megatest: get-procedures.sh at [82da6b65d8]

File utils/get-procedures.sh artifact aa92973588 part of check-in 82da6b65d8

#!/bin/bash

fname=$1

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