RosettaCodeData/Task/String-prepend/ALGOL-68/string-prepend.alg

#!/usr/bin/a68g --script #
# -*- coding: utf-8 -*- #

STRING str := "12345678";
"0" +=: str;
print(str)