removed repeated forthpower function