m3p forth machine refine attempt