applyObject _  (Subroutine x _ _) = error $ printf "%s is a subroutine and not applicable" x
applyObject _  (Subroutine x _ _) = error $ printf "%s is a subroutine and not applicable" x
applyObject _  (Subroutine x _ _) = error $ printf "%s is a subroutine and not applicable" x