awk print first characters of a field

C++
awk '{print substr($1,1,1)}'
Source

Also in C++: